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!
7MODULE M1
8CONTAINS
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
14END MODULE M1
15
16PROGRAM 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()
30END
31
32! { dg-final { scan-tree-dump-times "realloc" 0 "original" } }
33