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