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