diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/continuation.f90 | 15 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 | 2 |
3 files changed, 22 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e955f5e..ec0cd75 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2006-03-14 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/19101 + * gfortran.dg/continuation.f90: New test. + * gfortran.dg/fmt_read_bz_bn.f90: Fix use of continuation. + 2006-03-14 Richard Guenther <rguenther@suse.de> PR tree-optimization/26672 diff --git a/gcc/testsuite/gfortran.dg/continuation.f90 b/gcc/testsuite/gfortran.dg/continuation.f90 new file mode 100644 index 0000000..64a98ad --- /dev/null +++ b/gcc/testsuite/gfortran.dg/continuation.f90 @@ -0,0 +1,15 @@ +! { dg-do run } +! { dg-options -Wampersand } +! PR 19101 Test line continuations and spaces. Note: the missing ampersand +! before "world" is non standard default behavior. Use -std=f95, -std=f2003, +! -pedantic, -Wall, or -Wampersand to catch this error +! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>. +program main + character (len=40) & + c + c = "Hello, & + world!" ! { dg-warning "Warning: Missing '&' in continued character constant" } + if (c.ne.& + "Hello, world!")& + call abort();end program main + diff --git a/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 b/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 index 5cda4bb..d0d0193 100644 --- a/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 +++ b/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 @@ -14,7 +14,7 @@ character*80 :: ODATA="" character*80 :: CORRECT1=" 1110 2020 .30303E-07 44 55 6.6 70.07 .888E+01" character*80 :: CORRECT2="23450 10345. 12.45 1235 1234 2345 1345. 12.45 1235" character*80 :: CORRECT3=" -0.8000000000D+01 0.1000000000D-03& - 0.5000000000D+00 0.2500000000D+00" + & 0.5000000000D+00 0.2500000000D+00" READ(IDATA1, 10) I1(1,2), IVI, A1(3), JVI, KVI, A1(2), AVS, A1(1) 10 FORMAT (BZ,(2I4, E10.1, BN, 2I4, F5.2, BZ, F5.2, BN, E10.1)) |