gcc/testsuite/gfortran.dg/allocate_with_arrayspec_1.f90

! { 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" } }