blob: 420160b259809405330d19dd51c6a85c52d4cc27 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
! { dg-options "-std=f2003" }
! Check whether empty contains are allowd
! PR fortran/29806
module x
contains ! { dg-error "CONTAINS statement without FUNCTION or SUBROUTINE statement" }
end module x
program y
contains ! { dg-error "CONTAINS statement without FUNCTION or SUBROUTINE statement" }
end program y
|
