2 ! { dg-options "-std=f95" }
4 ! Type-bound procedures
5 ! Test that F95 does not allow type-bound procedures
12 CONTAINS ! { dg-error "Fortran 2003" }
13 PROCEDURE proc1
! { dg-error "Fortran 2003" }
14 PROCEDURE
:: proc2
=> p2
! { dg-error "Fortran 2003" }
24 REAL FUNCTION proc2 (me
, x
)
33 ! { dg-final { cleanup-modules "testmod" } }
34 ! { dg-excess-errors "no IMPLICIT type" }