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