1! { dg-do run } 2! { dg-options "-fdump-tree-original" } 3 4MODULE mo_test 5 6 integer :: n = 0 7CONTAINS 8 9 FUNCTION nquery() 10 INTEGER :: nquery 11 WRITE (0,*) "hello!" 12 n = n + 1 13 nquery = n 14 END FUNCTION nquery 15 16END MODULE mo_test 17 18 19! ---------------------------------------------------------------------- 20! MAIN PROGRAM 21! ---------------------------------------------------------------------- 22PROGRAM example 23 USE mo_test 24 INTEGER, ALLOCATABLE :: query_buf(:) 25 ALLOCATE(query_buf(nquery())) 26 if (n /= 1 .or. size(query_buf) /= n) call abort() 27END PROGRAM example 28 29! { dg-final { scan-tree-dump-times "nquery" 5 "original" } } 30