! { dg-do run } ! { dg-options "-fdump-tree-original" } MODULE mo_test integer :: n = 0 CONTAINS FUNCTION nquery() INTEGER :: nquery WRITE (0,*) "hello!" n = n + 1 nquery = n END FUNCTION nquery END MODULE mo_test ! ---------------------------------------------------------------------- ! MAIN PROGRAM ! ---------------------------------------------------------------------- PROGRAM example USE mo_test INTEGER, ALLOCATABLE :: query_buf(:) ALLOCATE(query_buf(nquery())) if (n /= 1 .or. size(query_buf) /= n) STOP 1 END PROGRAM example ! { dg-final { scan-tree-dump-times "nquery" 5 "original" } }