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