gcc/testsuite/gfortran.dg/realloc_on_assign_16.f90

   1 ! { dg-do run }
   2 ! Test the fix for PR56008
   3 !
   4 ! Contributed by Stefan Mauerberger  <stefan.mauerberger@gmail.com>
   5 !
   6 PROGRAM main
   7     !USE MPI
   8
   9     TYPE :: test_typ
  10         REAL, ALLOCATABLE :: a(:)
  11     END TYPE
  12
  13     TYPE(test_typ) :: xx, yy
  14     TYPE(test_typ), ALLOCATABLE :: conc(:)
  15
  16     !CALL MPI_INIT(i)
  17
  18     xx = test_typ( [1.0,2.0] )
  19     yy = test_typ( [4.0,4.9] )
  20
  21     conc = [ xx, yy ]
  22
  23     if (any (int (10.0*conc(1)%a) .ne. [10,20])) call abort
  24     if (any (int (10.0*conc(2)%a) .ne. [40,49])) call abort
  25
  26     !CALL MPI_FINALIZE(i)
  27
  28 END PROGRAM main