yggdrasil/gcc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

re PR fortran/19101 (missing & in character continuation not caught)

Browse Source 
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.

From-SVN: r112079
This commit is contained in:
Jerry DeLisle
2006-03-15 07:08:06 +00:00
parent 3fbab54926
commit 41e192eb40
3 changed files with 22 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gcc/testsuite/ChangeLog
+6
View File
@@ -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
gcc/testsuite/gfortran.dg/continuation.f90
+15
View File
@@ -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
gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90
+1 -1
View File
@@ -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))