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