From caa42d865f3ad3bd6986145a5e2e6597cacbcb48 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sun, 6 Jan 2008 19:11:42 +0100 Subject: equiv_constraint_9.f90: Fix typo. 2008-01-06 Tobias Burnus * gfortran.dg/equiv_constraint_9.f90: Fix typo. From-SVN: r131354 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/equiv_constraint_9.f90 | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'gcc') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 549a007..39188cc 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,9 @@ 2008-01-06 Tobias Burnus + * gfortran.dg/equiv_constraint_9.f90: Fix typo. + +2008-01-06 Tobias Burnus + PR fortran/34655 * gfortran.dg/equiv_constraint_9.f90: New. diff --git a/gcc/testsuite/gfortran.dg/equiv_constraint_9.f90 b/gcc/testsuite/gfortran.dg/equiv_constraint_9.f90 index 3374441..0e4e832 100644 --- a/gcc/testsuite/gfortran.dg/equiv_constraint_9.f90 +++ b/gcc/testsuite/gfortran.dg/equiv_constraint_9.f90 @@ -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 -- cgit v1.1