fix pr/45972
[official-gcc.git] / gcc / testsuite / gfortran.dg / contains_empty_1.f03
blob51b5dd90b161d1d76357923a31e7d7c5797e12cf
1 ! { dg-do compile }
2 ! { dg-options "-std=f2003 -pedantic" }
3 program test
4   print *, 'hello there'
5 contains
6 end program test ! { dg-error "Fortran 2008: CONTAINS statement without" }
8 module truc
9   integer, parameter :: answer = 42
10 contains
11 end module truc ! { dg-error "Fortran 2008: CONTAINS statement without" }