1! { dg-do compile } 2! { dg-options "-std=f95" } 3 4! Type-bound procedures 5! Test that F95 does not allow type-bound procedures 6 7MODULE testmod 8 IMPLICIT NONE 9 10 TYPE t 11 INTEGER :: x 12 CONTAINS ! { dg-error "Fortran 2003" } 13 PROCEDURE proc1 ! { dg-error "Fortran 2003" } 14 PROCEDURE :: proc2 => p2 ! { dg-error "Fortran 2003" } 15 END TYPE t 16 17CONTAINS 18 19 SUBROUTINE proc1 (me) 20 IMPLICIT NONE 21 TYPE(t1) :: me 22 END SUBROUTINE proc1 23 24 REAL FUNCTION proc2 (me, x) 25 IMPLICIT NONE 26 TYPE(t1) :: me 27 REAL :: x 28 proc2 = x / 2 29 END FUNCTION proc2 30 31END MODULE testmod 32! { dg-excess-errors "no IMPLICIT type" } 33