gcc/testsuite/gfortran.dg/array_constructor_41.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdump-tree-original" }
   3 ! Test fix for PR55789
   4 !
   5 ! Contributed by Joost VandVandole  <Joost.VandeVondele@mat.ethz.ch>
   6 !
   7 MODULE M1
   8 CONTAINS
   9   SUBROUTINE cp_1d_i4_sort(arr)
  10       INTEGER(kind=4), DIMENSION(:), &
  11         INTENT(inout)                          :: arr
  12       arr = (/ (i, i = 1, SIZE(arr)) /)
  13   END SUBROUTINE
  14 END MODULE M1
  15
  16 PROGRAM TEST
  17   USE M1
  18   INTEGER :: arr(1)
  19   INTERFACE
  20     SUBROUTINE mtrace() BIND(C,name="mtrace")
  21     END SUBROUTINE
  22   END INTERFACE
  23   INTERFACE
  24     SUBROUTINE muntrace() BIND(C,name="muntrace")
  25     END SUBROUTINE
  26   END INTERFACE
  27   CALL mtrace()
  28   CALL cp_1d_i4_sort(arr)
  29   CALL muntrace()
  30 END
  31
  32 ! { dg-final { scan-tree-dump-times "realloc" 0 "original" } }