gcc/fortran:

2009-12-07  Daniel Franke  <franke.daniel@gmail.com>

        PR fortran/41940
        * match.c (gfc_match_allocate): Improved error message for
        allocatable scalars that are allocated with a shape.

gcc/testsuite:
2009-12-07  Daniel Franke  <franke.daniel@gmail.com>

        PR fortran/41940
        * gfortran.dg/allocate_scalar_with_shape.f90: New.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@155049 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 9d0506e..49f6b8f 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2009-12-07  Daniel Franke  <franke.daniel@gmail.com>
+
+        PR fortran/41940
+        * match.c (gfc_match_allocate): Improved error message for
+        allocatable scalars that are allocated with a shape.
+
 2009-12-07  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
        PR other/40302

diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index 9e76818..c67427c 100644 (file)
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -2502,6 +2502,12 @@ gfc_match_allocate (void)
          goto cleanup;
        }
 
+      if (gfc_peek_ascii_char () == '(' && !sym->attr.dimension)
+       {
+         gfc_error ("Shape specification for allocatable scalar at %C");
+         goto cleanup;
+       }
+
       if (gfc_match_char (',') != MATCH_YES)
        break;
 

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index edd2b46..da73c1e 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-12-07  Daniel Franke  <franke.daniel@gmail.com>
+
+        PR fortran/41940
+        * gfortran.dg/allocate_scalar_with_shape.f90: New.
+
 2009-12-07  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
        PR other/40302

diff --git a/gcc/testsuite/gfortran.dg/allocate_scalar_with_shape.f90 b/gcc/testsuite/gfortran.dg/allocate_scalar_with_shape.f90
new file mode 100644 (file)
index 0000000..1f4f9d5
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/allocate_scalar_with_shape.f90
@@ -0,0 +1,13 @@
+! { dg-do "compile" }
+! PR fortran/41940
+
+integer, allocatable :: a
+TYPE :: x
+  integer, allocatable :: a
+END TYPE
+TYPE (x) :: y
+
+allocate(a(4))     ! { dg-error "Shape specification for allocatable scalar" }
+allocate(y%a(4))   ! { dg-error "Shape specification for allocatable scalar" }
+end
+