3 ! PR 44558: [OOP] ICE on invalid code: called TBP subroutine as TBP function
5 ! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>
10 procedure::a_subroutine_1
11 procedure::a_subroutine_2
14 real function a_subroutine_1(this)
17 res=this%a_subroutine_2() ! { dg-error "should be a FUNCTION" }
19 subroutine a_subroutine_2(this)
21 call this%a_subroutine_1() ! { dg-error "should be a SUBROUTINE" }