diff options
| author | aldot <aldot@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-31 23:38:58 +0000 |
|---|---|---|
| committer | aldot <aldot@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-31 23:38:58 +0000 |
| commit | 26691d132aa2906b50fcdd86c6cb28042b10227e (patch) | |
| tree | c625ef375d766085812e0b32d7cc941024b9531e /gcc/testsuite/gfortran.dg/blockdata_1.f90 | |
| parent | 1abb1bec51bbe8e8534442a9fe9f302e42722b2b (diff) | |
| download | gcc-26691d132aa2906b50fcdd86c6cb28042b10227e.tar.gz | |
fortran/ChangeLog:
2006-11-01 Bernhard Fischer <aldot@gcc.gnu.org>
PR fortran/29537
* trans-common.c (gfc_trans_common): If the blank common is
in a procedure or program without a name then proc_name is null, so use
the locus of the common.
(gfc_sym_mangled_common_id): Fix whitespace.
* match.c (gfc_match_common): Emit warning about blank common in
block data.
testsuite/ChangeLog:
2006-11-01 Bernhard Fischer <aldot@gcc.gnu.org>
PR fortran/29537
* gfortran.dg/blockdata_1.f90: Add warning about blank common in block
data.
* gfortran.dg/blockdata_2.f90: New testcase.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118347 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/blockdata_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/blockdata_1.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/blockdata_1.f90 b/gcc/testsuite/gfortran.dg/blockdata_1.f90 index 5c475f1d0f4..81cd02cc90b 100644 --- a/gcc/testsuite/gfortran.dg/blockdata_1.f90 +++ b/gcc/testsuite/gfortran.dg/blockdata_1.f90 @@ -14,7 +14,7 @@ end blockdata d1 block data d2 common /b/ u - common j + common j ! { dg-warning "cannot contain blank COMMON" } data j /1/ end block data d2 ! |