gcc/testsuite/gfortran.fortran-torture/execute/der_init_4.f90

   1 ! PR13930
   2 ! We were trying to assugn a default initializer to dummy variables.
   3 program der_init_4
   4   type t
   5     integer :: i = 42
   6   end type
   7
   8   call foo(t(5))
   9 contains
  10 subroutine foo(a)
  11   type (t), intent(in) :: a
  12
  13   if (a%i .ne. 5) call abort
  14 end subroutine
  15 end program