| 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 |