mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:26:48 +00:00
21dceb3ca6
Splitting up the tests for the synchronization statements, event statements, and error stop statement allow for some of the errors which are hidden by other errors, to be caught in the test. This then reveals which invalid code does produce errors and which does not produce errors.
74 lines
2.1 KiB
Fortran
74 lines
2.1 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! This test checks for semantic errors in event post statements based on the
|
|
! statement specification in section 11.6.7 of the Fortran 2018 standard.
|
|
|
|
program test_event_post
|
|
use iso_fortran_env, only : event_type
|
|
implicit none
|
|
|
|
! event_type variables must be coarrays
|
|
type(event_type) non_coarray
|
|
|
|
type(event_type) concert[*], occurrences(2)[*]
|
|
integer non_event[*], sync_status, co_indexed_integer[*], superfluous_stat, non_scalar(1)
|
|
character(len=128) error_message, co_indexed_character[*], superfluous_errmsg
|
|
logical invalid_type
|
|
|
|
!___ standard-conforming statements ___
|
|
|
|
event post(concert)
|
|
event post(concert[1])
|
|
event post(occurrences(1))
|
|
event post(occurrences(1)[1])
|
|
event post(concert, stat=sync_status)
|
|
event post(concert, errmsg=error_message)
|
|
event post(concert, stat=sync_status, errmsg=error_message)
|
|
|
|
!___ non-standard-conforming statements ___
|
|
|
|
!______ invalid event-variable ____________________________
|
|
|
|
! event-variable has an unknown keyword argument
|
|
!ERROR: expected ')'
|
|
event post(event=concert)
|
|
|
|
!______ invalid sync-stat-lists: invalid stat= ____________
|
|
|
|
! Invalid stat-variable keyword
|
|
!ERROR: expected ')'
|
|
event post(concert, status=sync_status)
|
|
|
|
! Invalid sync-stat-list: missing stat-variable
|
|
!ERROR: expected ')'
|
|
event post(concert, stat)
|
|
|
|
! Invalid sync-stat-list: missing 'stat='
|
|
!ERROR: expected ')'
|
|
event post(concert, sync_status)
|
|
|
|
!______ invalid sync-stat-lists: invalid errmsg= ____________
|
|
|
|
! Invalid errmsg-variable keyword
|
|
!ERROR: expected ')'
|
|
event post(concert, errormsg=error_message)
|
|
|
|
! Invalid sync-stat-list: missing 'errmsg='
|
|
!ERROR: expected ')'
|
|
event post(concert, error_message)
|
|
|
|
! Invalid sync-stat-list: missing errmsg-variable
|
|
!ERROR: expected ')'
|
|
event post(concert, errmsg)
|
|
|
|
!______ invalid event-variable: redundant event-variable ____________
|
|
|
|
! Too many arguments
|
|
!ERROR: expected ')'
|
|
event post(concert, occurrences(1))
|
|
|
|
! Too many arguments
|
|
!ERROR: expected ')'
|
|
event post(concert, occurrences(1), stat=sync_status, errmsg=error_message)
|
|
|
|
end program test_event_post
|