subroutine ext1 !1,12 | |
end subroutine ext1 !2,16 | |
program test | |
interface | |
subroutine ext1 !6,16 | |
end subroutine ext1 !7,20 | |
character(len=3) function ext2(i) !9,31 | |
real, intent(in) :: i | |
end function ext2 !11,18 | |
integer function ext3() !13,22 | |
end function ext3 !14,18 | |
end interface | |
call ext1 !17,8 | |
print *, ext2(1.1) !18,12 | |
print *, ext3() !19,12 | |
end program | |
function ext3() result(j) !23,10 | |
j = 3 | |
end function ext3 !25,14 |