Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/pr65045.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do compile } |
2 ! | |
3 ! Contributed by Walt Brainerd <walt.brainerd@gmail.com> | |
4 ! | |
5 real :: i = 9.9 | |
6 i:block | |
7 if (i>7.7) then ! { dg-error "is not appropriate for an expression" } | |
8 exit i | |
9 else ! { dg-error "Unexpected ELSE statement" } | |
10 i = 2.2 ! { dg-error "is not a variable" } | |
11 end if ! { dg-error "Expecting END BLOCK statement" } | |
12 end block i ! { dg-error "Expecting END PROGRAM statement" } | |
13 print*,i ! { dg-error "not appropriate for an expression" } | |
14 end | |
15 ! { dg-excess-errors "Unexpected end of file" } |