gcc/testsuite/gfortran.dg/interface_assignment_4.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 40743: [4.5 Regression] ICE when compiling iso_varying_string.f95 at revision 149591
   4 !
   5 ! Reduced from http://www.fortran.com/iso_varying_string.f95
   6 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   7
   8   implicit none
   9
  10   type :: varying_string
  11   end type
  12
  13   interface assignment(=)
  14      procedure op_assign_VS_CH
  15   end interface
  16
  17 contains
  18
  19   subroutine op_assign_VS_CH (var, exp)
  20     type(varying_string), intent(out) :: var
  21     character(LEN=*), intent(in)      :: exp
  22   end subroutine
  23
  24   subroutine split_VS
  25     type(varying_string) :: string
  26     call split_CH(string)
  27   end subroutine
  28
  29   subroutine split_CH (string)
  30     type(varying_string) :: string
  31     string = ""
  32   end subroutine
  33
  34 end
  35