1! { dg-do compile } 2! { dg-options "-std=f2003 -pedantic" } 3program test 4 print *, 'hello there' 5contains 6end program test ! { dg-error "Fortran 2008: CONTAINS statement without" } 7 8module truc 9 integer, parameter :: answer = 42 10contains 11end module truc ! { dg-error "Fortran 2008: CONTAINS statement without" } 12