gcc/testsuite/gfortran.dg/pr45337_2.f90

   1 ! { dg-do compile }
   2
   3 type t
   4 end type t
   5 type t2
   6   integer :: j = 7
   7 end type t2
   8 contains
   9   subroutine x(a, b, c)
  10     intent(out) :: a, b, c
  11     type(t) :: a = t()
  12     type(t2) :: b = t2()
  13     type(t2) :: c
  14   end subroutine x
  15 end
  16
  17 ! { dg-error "Dummy .a. at .1. cannot have an initializer" " " { target *-*-* } 9 }
  18 ! { dg-error "Dummy .b. at .1. cannot have an initializer" " " { target *-*-* } 9 }