equiv_constraint_9.f90: Fix typo.
2008-01-06 Tobias Burnus <burnus@net-b.de> * gfortran.dg/equiv_constraint_9.f90: Fix typo. From-SVN: r131354
This commit is contained in:
parent
cddcf0d4ae
commit
caa42d865f
@ -1,3 +1,7 @@
|
||||
2008-01-06 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
* gfortran.dg/equiv_constraint_9.f90: Fix typo.
|
||||
|
||||
2008-01-06 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
PR fortran/34655
|
||||
|
@ -20,7 +20,7 @@ end type data_type2
|
||||
type(data_type) :: dd, ff
|
||||
type(data_type2) :: gg
|
||||
integer :: j, k, m
|
||||
EQUIVALENCE(dd,J) ! { dg-error "with default initializations cannot be in EQUIVALENCE with a variable in COMMON" }
|
||||
EQUIVALENCE(dd,J) ! { dg-error "with default initialization cannot be in EQUIVALENCE with a variable in COMMON" }
|
||||
EQUIVALENCE(ff,k)
|
||||
EQUIVALENCE(gg,m)
|
||||
COMMON /COM/ j
|
||||
|
Loading…
Reference in New Issue
Block a user