58 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12module m13 type t14 contains5 procedure :: tbp => s16 end type7 type, extends(t1) :: t1e8 contains9 !ERROR: A type-bound procedure and its override must have compatible interfaces10 procedure :: tbp => s1e11 end type12 contains13 subroutine s1(x)14 class(t1) :: x15 end16 subroutine s1e(x)17 class(t1e), intent(in out) :: x18 end19end20 21module m222 type t123 contains24 procedure :: tbp => s125 end type26 type, extends(t1) :: t1e27 contains28 !ERROR: A type-bound procedure and its override must have compatible interfaces29 procedure :: tbp => s1e30 end type31 contains32 subroutine s1(x)33 class(t1), intent(in out) :: x34 end35 subroutine s1e(x)36 class(t1e) :: x37 end38end39 40module m341 type t142 contains43 procedure, nopass :: tbp => s144 end type45 type, extends(t1) :: t1e46 contains47 !ERROR: A NOPASS type-bound procedure and its override must have identical interfaces48 procedure, nopass :: tbp => s1e49 end type50 contains51 subroutine s1(x)52 real, intent(in out) :: x53 end54 subroutine s1e(x)55 real :: x56 end57end58