1pure subroutine foo
2 !$omp nothing ! { dg-error "OpenMP directives other than SIMD or DECLARE TARGET at .1. may not appear in PURE procedures" }
3end subroutine
4
5subroutine bar
6 !$omp nothing foo ! { dg-error "Unexpected junk after .OMP NOTHING statement" }
7end
8