+
−! { dg-do compile }
+
−! { dg-options "-fcoarray=single -fdump-tree-original" }
+
−!
+
−! PR fortran/57093
+
−!
+
−! Contributed by Damian Rouson
+
−!
+
−program main
+
−  character(len=25), allocatable :: greeting[:]
+
−  allocate(greeting[*])
+
−  write(greeting,"(a)") "z"
+
−end
+
−
+
−! { dg-final { scan-tree-dump-times "greeting.data = \\(void . restrict\\) __builtin_malloc \\(25\\);" 1 "original" } }