gcc/testsuite/gfortran.dg/gomp/error-1.f90

! { dg-additional-options "-ffree-line-length-none" }
module m
!$omp error			! { dg-error ".OMP ERROR encountered at .1." }
!$omp error at(compilation)	! { dg-error ".OMP ERROR encountered at .1." }
!$omp error severity(fatal)	! { dg-error ".OMP ERROR encountered at .1." }
!$omp error message("my msg")	! { dg-error ".OMP ERROR encountered at .1.: my msg" }
!$omp error severity(warning)message("another message")at(compilation)	! { dg-warning ".OMP ERROR encountered at .1.: another message" }

type S
  !$omp error			! { dg-error ".OMP ERROR encountered at .1." }
  !$omp error at(compilation)	! { dg-error ".OMP ERROR encountered at .1." }
  !$omp error severity(fatal)	! { dg-error ".OMP ERROR encountered at .1." }
  !$omp error message("42")	! { dg-error ".OMP ERROR encountered at .1.: 42" }
  !$omp error severity(warning), message("foo"), at(compilation)	! { dg-warning ".OMP ERROR encountered at .1.: foo" }
  integer s
end type S
end module m

integer function foo (i, x)
  integer :: i
  logical :: x
  !$omp error			! { dg-error ".OMP ERROR encountered at .1." }
  !$omp error at(compilation)	! { dg-error ".OMP ERROR encountered at .1." }
  !$omp error severity(fatal)	! { dg-error ".OMP ERROR encountered at .1." }
  !$omp error message("42 / 1")	! { dg-error ".OMP ERROR encountered at .1.: 42 / 1" }
  !$omp error severity(warning) message("bar") at(compilation)	! { dg-warning ".OMP ERROR encountered at .1.: bar" }
  if (x) then
    !$omp error			! { dg-error ".OMP ERROR encountered at .1." }
    i = i + 1
  end if
  if (x) then
    ;
  else
    !$omp error at(compilation)	! { dg-error ".OMP ERROR encountered at .1." }
    i = i + 1
  end if
  select case (.false.)
    !$omp error severity(fatal)	! { dg-error ".OMP ERROR encountered at .1." }
    case default
      !
  end select
  do while (.false.)
    !$omp error message("42 - 1")	! { dg-error ".OMP ERROR encountered at .1.: 42 - 1" }
    i = i + 1
  end do
  lab:
  !$omp error severity(warning) message("bar") at(compilation)	! { dg-warning ".OMP ERROR encountered at .1.: bar" }
    i++;
  foo = i
  return
end