| program p | |
| implicit none | |
| real :: a | |
| real :: d | |
| intrinsic flush | |
| type t | |
| integer n | |
| end type | |
| type(t) u | |
| a = 1 | |
| d = 1 | |
| u = t(5) | |
| call s | |
| print *, a, d, u | |
| call flush; stop | |
| contains | |
| subroutine s | |
| implicit none | |
| integer :: b | |
| integer :: c | |
| real :: e | |
| type(t) :: f | |
| integer :: g | |
| complex :: h | |
| a = 3 | |
| b = 3 | |
| c = 3 | |
| d = 3.0 | |
| e = 3.0 | |
| f%n = 3 | |
| g = 3 | |
| h = (3, 4) | |
| end subroutine | |
| end program |