diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/unexpected_eof.f')
-rw-r--r-- | gcc/testsuite/gfortran.dg/unexpected_eof.f | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/unexpected_eof.f b/gcc/testsuite/gfortran.dg/unexpected_eof.f new file mode 100644 index 00000000000..d3cdb99596a --- /dev/null +++ b/gcc/testsuite/gfortran.dg/unexpected_eof.f @@ -0,0 +1,8 @@ +! { dg-do compile } +! PR66461 ICE on missing end program in fixed source + program p + integer x(2) + x = -1 + if ( x(1) < 0 .or. + & x(2) < 0 ) print *, x +! { dg-error "Unexpected end of file" "" { target *-*-* } 0 } |