2 ! { dg-options "-fopenmp -fcheck=recursion" }
4 ! PR 42517: Bogus runtime error with -fopenmp -fcheck=recursion
6 ! Contributed by Janus Weil <janus@gcc.gnu.org>
12 !$omp parallel do private(i) shared(s)
17 if (s
/=55) call abort()
25 print '(A,i3)',"loop =",n