gcc/testsuite/gfortran.dg/realloc_on_assign_16a.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Ofast -fno-tree-forwprop" }
   3 ! Test that PR 82976 is fixed, this used to ICE.
   4 !
   5 ! Contributed by Stefan Mauerberger  <stefan.mauerberger@gmail.com>
   6 !
   7 PROGRAM main
   8     !USE MPI
   9
  10     TYPE :: test_typ
  11         REAL, ALLOCATABLE :: a(:)
  12     END TYPE
  13
  14     TYPE(test_typ) :: xx, yy
  15     TYPE(test_typ), ALLOCATABLE :: conc(:)
  16
  17     !CALL MPI_INIT(i)
  18
  19     xx = test_typ( [1.0,2.0] )
  20     yy = test_typ( [4.0,4.9] )
  21
  22     conc = [ xx, yy ]
  23
  24     if (any (int (10.0*conc(1)%a) .ne. [10,20])) STOP 1
  25     if (any (int (10.0*conc(2)%a) .ne. [40,49])) STOP 2
  26
  27     !CALL MPI_FINALIZE(i)
  28
  29 END PROGRAM main