diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-10-19 18:03:02 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-10-19 18:03:02 +0000 |
| commit | 7ba65099b4d888030fcb580d65907ceff6fe9e69 (patch) | |
| tree | 12cd54e068b86c890d3190dc3a0aacb0e8f6df30 /gcc/testsuite/gfortran.dg/equiv_8.f90 | |
| parent | f5dac1ddbe81641c0261523de1c3d7ccd40b59ab (diff) | |
| download | gcc-7ba65099b4d888030fcb580d65907ceff6fe9e69.tar.gz | |
2009-10-19 Tobias Burnus <burnus@net-b.de>
Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/41755
* symbol.c (gfc_undo_symbols): Add NULL check.
* match.c (gfc_match_equivalence): Add check for
missing comma.
2009-10-19 Tobias Burnus <burnus@net-b.de>
PR fortran/41755
* gfortran.dg/equiv_8.f90: New test.
* gfortran.dg/class_allocate_1.f03: Remove obsolete FIXME.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@152983 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/equiv_8.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/equiv_8.f90 | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/equiv_8.f90 b/gcc/testsuite/gfortran.dg/equiv_8.f90 new file mode 100644 index 00000000000..a2ed7f0349e --- /dev/null +++ b/gcc/testsuite/gfortran.dg/equiv_8.f90 @@ -0,0 +1,7 @@ +! { dg-do compile } +! +! PR fortran/41755 +! + common /uno/ aa + equivalence (aa,aaaaa) (bb,cc) ! { dg-error "Expecting a comma in EQUIVALENCE" } + end |