| ! { dg-do run } | |
| ! | |
| ! PR 43256: [OOP] TBP with missing optional arg | |
| ! | |
| ! Contributed by Janus Weil | |
| module module_myobj | |
| implicit none | |
| type :: myobj | |
| contains | |
| procedure, nopass :: myfunc | |
| end type | |
| contains | |
| integer function myfunc(status) | |
| integer, optional :: status | |
| if (present(status)) then | |
| myfunc = 1 | |
| else | |
| myfunc = 2 | |
| end if | |
| end function | |
| end module | |
| program test_optional | |
| use :: module_myobj | |
| implicit none | |
| integer :: res = 0 | |
| type(myobj) :: myinstance | |
| res = myinstance%myfunc() | |
| if (res /= 2) STOP 1 | |
| end program |