llvm/flang/test/Semantics/notifywait02.f90

! RUN: %python %S/test_errors.py %s %flang_fc1
! This test checks for semantic errors in notify wait statements based on the
! statement specification in section 11.6 of the Fortran 2023 standard

program test_notify_wait
  use iso_fortran_env, only: notify_type
  implicit none

  ! notify_type variables must be coarrays
  type(notify_type) :: non_coarray

  type(notify_type) :: notify_var[*], redundant_notify[*]
  integer :: count, sync_status
  character(len=128) :: error_message

  !____________________ non-standard-conforming statements __________________________

  !_________________________ invalid notify-variable ________________________________

  ! notify-variable has an unknown expression
  !ERROR: expected '('
  notify wait(notify=notify_var)

  !_____________ invalid event-wait-spec-lists: invalid until-spec _________________

  ! Invalid until-spec keyword
  !ERROR: expected '('
  notify wait(notify_var, until_amount=count)

  ! Invalid until-spec: missing until-spec variable
  !ERROR: expected '('
  notify wait(notify_var, until_count)

  ! Invalid until-spec: missing 'until_count='
  !ERROR: expected '('
  notify wait(notify_var, count)

  !_________________ invalid sync-stat-lists: invalid stat= ________________________

  ! Invalid stat-variable keyword
  !ERROR: expected '('
  notify wait(notify_var, status=sync_status)

  ! Invalid sync-stat-list: missing stat-variable
  !ERROR: expected '('
  notify wait(notify_var, stat)

  ! Invalid sync-stat-list: missing 'stat='
  !ERROR: expected '('
  notify wait(notify_var, sync_status)

  !________________ invalid sync-stat-lists: invalid errmsg= _______________________

  ! Invalid errmsg-variable keyword
  !ERROR: expected '('
  notify wait(notify_var, errormsg=error_message)

  ! Invalid sync-stat-list: missing 'errmsg='
  !ERROR: expected '('
  notify wait(notify_var, error_message)

  ! Invalid sync-stat-list: missing errmsg-variable
  !ERROR: expected '('
  notify wait(notify_var, errmsg)

  !______________ invalid notify-variable: redundant notify-variable _________________

  !ERROR: expected '('
  notify wait(notify_var, redundant_notify)

  !ERROR: expected '('
  notify wait(notify_var, redundant_notify, stat=sync_status, errmsg=error_message)

end program test_notify_wait