OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

pr19936_1.f90: New test. 

* gfortran.dg/pr19936_1.f90: New test.
* gfortran.dg/pr19936_2.f90: New test.
* gfortran.dg/pr19936_3.f90: New test.

From-SVN: r95952
This commit is contained in:
Steven G. Kargl 2005-03-05 23:38:20 +00:00 committed by Steven G. Kargl
parent 87ebdf2fab
commit 715c9326eb
4 changed files with 22 additions and 0 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 @@
2005-03-05 Steven G. Kargl <kargls@comcast.net>
* gfortran.dg/pr19936_1.f90: New test.
* gfortran.dg/pr19936_2.f90: New test.
* gfortran.dg/pr19936_3.f90: New test.
2005-03-05 Steven G. Kargl <kargls@comcast.net>
Paul Thomas <prthomas@drfccad.cea.fr>

5
gcc/testsuite/gfortran.dg/pr19936_1.f90 Normal file
View File

@ -0,0 +1,5 @@
! { dg-do compile }
program pr19936_1
integer, parameter :: i=4
print *,(/(i,i=1,4)/) ! { dg-error "Expected VARIABLE" }
end program pr19936_1

5
gcc/testsuite/gfortran.dg/pr19936_2.f90 Normal file
View File

@ -0,0 +1,5 @@
! { dg-do compile }
program pr19936_2
integer i
print *,(/(i,i=1a,4)/) ! { dg-error "Syntax error in iterator" }
end program pr19936_2

5
gcc/testsuite/gfortran.dg/pr19936_3.f90 Normal file
View File

@ -0,0 +1,5 @@
! { dg-do compile }
program pr19936_3
integer, parameter :: i = 4
print *,(/(i,i,4)/) ! { dg-error "Syntax error in COMPLEX" }
end program pr19936_3