| module entry_8_m | |
| type t | |
| integer i | |
| real x (5) | |
| end type t | |
| end module entry_8_m | |
| function f (i) | |
| use entry_8_m | |
| type (t) :: f,g | |
| f % i = i | |
| return | |
| entry g (x) | |
| g%x = x | |
| end function f | |
| use entry_8_m | |
| type (t) :: f, g, res | |
| res = f (42) | |
| if (res%i /= 42) call abort () | |
| res = g (1.) | |
| if (any (res%x /= 1.)) call abort () | |
| end |