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