1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
! { dg-do compile } ! { dg-options "-std=f2003" } ! Type-bound procedures ! Test that F2003 does not allow empty CONTAINS sections. MODULE testmod IMPLICIT NONE TYPE t INTEGER :: x CONTAINS END TYPE t ! { dg-error "Fortran 2008" } END MODULE testmod ! { dg-final { cleanup-modules "testmod" } }