diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2009-12-07 12:32:29 -0500 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2009-12-07 12:32:29 -0500 |
| commit | d59b1dcb19d9d8c6b69d00463ab7b4f5d5cd45a6 (patch) | |
| tree | 924e144433c8bbe5db535407c689e688ea4f6d9f /gcc/fortran/match.c | |
| parent | b3a00b5034c404458ba4a32c337bdc2c94f916ed (diff) | |
| download | gcc-d59b1dcb19d9d8c6b69d00463ab7b4f5d5cd45a6.tar.gz | |
re PR fortran/41940 (Improve error message for allocating scalar with shape)
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.
From-SVN: r155049
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 9e76818badc..c67427cbf14 100644 --- 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; |