program p
    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 integer (a-c,g), real (d-e), type(t) (f), 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