1! PR middle-end/66633
2! Testcase by Andrew Benson <abensonca@gmail.com>
3
4! { dg-do compile }
5! { dg-options "-O0 -fopenmp" }
6
7module spls
8contains
9  function spl()
10    !$omp parallel
11    write (0,*) igrt(fli)
12    !$omp end parallel
13  contains
14    double precision function fli()
15    end function fli
16  end function spl
17end module spls
18