1196212Sscottl! { dg-do compile } 2196212Sscottl! { dg-options "-std=f2008 -pedantic" } 3196212Sscottl 4196212Sscottlprogram test 5196212Sscottl print *, 'hello there' 6196212Sscottlcontains 7196212Sscottlend program test 8196212Sscottl 9196212Sscottlmodule truc 10196212Sscottl integer, parameter :: answer = 42 11196212Sscottlcontains 12196212Sscottlend module truc 13196212Sscottl