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