llvm-project/flang/test/Semantics/getsymbols02-a.f90

13 lines
190 B
Fortran
Raw Normal View History

! RUN: ${F18} -fparse-only %s
module mm2a
implicit none
private
public :: get5
contains
function get5() result(ret)
integer :: ret
ret = 5
end function get5
end module mm2a