forked from OSchip/llvm-project
15 lines
232 B
Fortran
15 lines
232 B
Fortran
![]() |
! RUN: ${F18} -fparse-only %s
|
||
![]() |
|
||
![]() |
module mm2b
|
||
|
use mm2a
|
||
![]() |
implicit none
|
||
|
private
|
||
|
public :: callget5
|
||
|
contains
|
||
|
function callget5() result(ret)
|
||
|
implicit none
|
||
|
INTEGER :: ret
|
||
|
ret = get5()
|
||
|
end function callget5
|
||
![]() |
end module mm2b
|