procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/35882 (Miscounted continuation lines when interspersed with data)

Browse source 
2008-04-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/35882
	* gfortran.dg/continuation_3.f90: Update test.
	* gfortran.dg/continuation_5.f: Update test.
	* gfortran.dg/continuation_10.f90: New test.

From-SVN: r134252
This commit is contained in:
Jerry DeLisle 2008-04-14 00:47:13 +00:00
parent dfbfb6301c
commit d20ca42891
4 changed files with 64 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,10 @@
2008-04-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/35882
* gfortran.dg/continuation_3.f90: Update test.
* gfortran.dg/continuation_5.f: Update test.
* gfortran.dg/continuation_10.f90: New test.
2008-04-13 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32972

55
gcc/testsuite/gfortran.dg/continuation_10.f90 Normal file
View file

@ -0,0 +1,55 @@
! { dg-do compile }
! { dg-options -std=f95 }
! PR35882 Miscounted continuation lines when interspersed with data
program test_mod
implicit none
integer, dimension(50) :: array
array = 1
print "(a, i8)", &
"Line 1", &
array(2), &
"Line 3", &
array(4), &
"Line 5", &
array(6), &
"Line 7", &
array(8), &
"Line 9", &
array(10), &
"Line 11", &
array(12), &
"Line 13", &
array(14), &
"Line 15", &
array(16), &
"Line 17", &
array(18), &
"Line 19", &
array(20), &
"Line 21", &
array(22), &
"Line 23", &
array(24), &
"Line 25", &
array(26), &
"Line 27", &
array(28), &
"Line 29", &
array(30), &
"Line 31", &
array(32), &
"Line 33", &
array(34), &
"Line 35", &
array(36), &
"Line 37", &
array(38), &
"Line 39", &
array(40), & ! { dg-warning "Limit of 39 continuations exceeded" }
"Line 41", &
array(42), &
"Line 43"
end program

2
gcc/testsuite/gfortran.dg/continuation_3.f90
View file

@ -1,5 +1,5 @@
! { dg-do compile }
! { dg-options -pedantic }
! { dg-options -std=f95 }
! PR 19262 Test limit on line continuations. Test case derived form case in PR
! by Steve Kargl. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
print *, &

2
gcc/testsuite/gfortran.dg/continuation_5.f
View file

@ -1,5 +1,5 @@
! { dg-do compile }
! { dg-options -pedantic }
! { dg-options -std=f95 }
! PR 19262 Test limit on line continuations. Test case derived form case in PR
! by Steve Kargl. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
print *,