gcc/testsuite/gfortran.dg/elemental_subroutine_6.f90

   1 ! { dg-do compile }
   2 ! PR35184 ICE in gfc_conv_array_index_offset
   3 MODULE foo
   4   TYPE, PUBLIC :: bar
   5     PRIVATE
   6       REAL :: value
   7   END TYPE bar
   8   INTERFACE ASSIGNMENT (=)
   9     MODULE PROCEDURE assign_bar
  10   END INTERFACE ASSIGNMENT (=)
  11 CONTAINS
  12   ELEMENTAL SUBROUTINE assign_bar (to, from)
  13     TYPE(bar), INTENT(OUT) :: to
  14     TYPE(bar), INTENT(IN) :: from
  15     to%value= from%value
  16   END SUBROUTINE
  17   SUBROUTINE my_sub (in, out)
  18     IMPLICIT NONE
  19     TYPE(bar), DIMENSION(:,:), POINTER :: in
  20     TYPE(bar), DIMENSION(:,:), POINTER :: out
  21     ALLOCATE( out(1:42, 1:42) )
  22     out(1, 1:42) = in(1, 1:42)
  23   END SUBROUTINE
  24 END MODULE foo