From: kargl Date: Sat, 5 Mar 2005 23:38:20 +0000 (+0000) Subject: * gfortran.dg/pr19936_1.f90: New test. X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=218d4d214de099c33636ec2c1aadff4a734c0198;p=thirdparty%2Fgcc.git * gfortran.dg/pr19936_1.f90: New test. * gfortran.dg/pr19936_2.f90: New test. * gfortran.dg/pr19936_3.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95952 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 190883a85332..6b3096e7b1d4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2005-03-05 Steven G. Kargl + + * 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 Paul Thomas diff --git a/gcc/testsuite/gfortran.dg/pr19936_1.f90 b/gcc/testsuite/gfortran.dg/pr19936_1.f90 new file mode 100644 index 000000000000..cd5140f21b15 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr19936_1.f90 @@ -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 diff --git a/gcc/testsuite/gfortran.dg/pr19936_2.f90 b/gcc/testsuite/gfortran.dg/pr19936_2.f90 new file mode 100644 index 000000000000..ad43c943fecd --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr19936_2.f90 @@ -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 diff --git a/gcc/testsuite/gfortran.dg/pr19936_3.f90 b/gcc/testsuite/gfortran.dg/pr19936_3.f90 new file mode 100644 index 000000000000..6f6f8ba37a9a --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr19936_3.f90 @@ -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