3 ! PR 43256: [OOP] TBP with missing optional arg
5 ! Contributed by Janus Weil
13 procedure, nopass :: myfunc
18 integer function myfunc(status)
19 integer, optional :: status
20 if (present(status)) then
36 type(myobj) :: myinstance
38 res = myinstance%myfunc()
39 if (res /= 2) call abort()
43 ! { dg-final { cleanup-modules "module_myobj" } }