gcc/testsuite/gfortran.dg/derived_sub.f90

   1 ! { dg-do compile }
   2 ! PR35475  gfortran fails to compile valid code with ICE error in fold-const.c
   3 ! Test case from PR report added to avoid future regression
   4 module modone
   5   type mytype
   6     real :: myvar
   7   end type
   8 end module
   9
  10 module modtwo
  11   interface
  12     subroutine subone(mytype_cur)
  13       use modone
  14       type (mytype) mytype_cur
  15     end subroutine
  16   end interface
  17
  18 contains
  19
  20   subroutine subtwo(mytype_cur)
  21     use modone
  22     type (mytype) mytype_cur,mytype_fin
  23     mytype_fin=mytype_cur
  24     return
  25   end subroutine
  26
  27   subroutine subthree(mytype_cur)
  28     use modone
  29     type (mytype) mytype_cur
  30     call subone(mytype_cur)
  31   end subroutine
  32
  33 end module
  34 ! { dg-final { cleanup-modules "modone modtwo" } }