mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 04:46:37 +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.
63 lines
1.9 KiB
Fortran
63 lines
1.9 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Check for errors in sync images statements
|
|
|
|
program test_sync_images
|
|
implicit none
|
|
|
|
integer sync_status, me
|
|
character(len=128) error_message
|
|
|
|
!___ standard-conforming statement ___
|
|
|
|
sync images(*, stat=sync_status, errmsg=error_message)
|
|
sync images(*, stat=sync_status )
|
|
sync images(*, errmsg=error_message)
|
|
sync images(* )
|
|
|
|
sync images(me, stat=sync_status, errmsg=error_message)
|
|
sync images(me+1, stat=sync_status, errmsg=error_message)
|
|
sync images(1, stat=sync_status, errmsg=error_message)
|
|
sync images(1, stat=sync_status )
|
|
sync images(1, errmsg=error_message)
|
|
sync images(1 )
|
|
|
|
sync images([1], stat=sync_status, errmsg=error_message)
|
|
sync images([1], stat=sync_status )
|
|
sync images([1], errmsg=error_message)
|
|
sync images([1] )
|
|
|
|
!___ non-standard-conforming statement ___
|
|
|
|
!ERROR: expected '('
|
|
sync images
|
|
|
|
!______ invalid sync-stat-lists: invalid stat= ____________
|
|
|
|
! Invalid sync-stat-list keyword
|
|
!ERROR: expected ')'
|
|
sync images(1, status=sync_status)
|
|
|
|
! Invalid sync-stat-list: missing stat-variable
|
|
!ERROR: expected ')'
|
|
sync images(1, stat)
|
|
|
|
! Invalid sync-stat-list: missing 'stat='
|
|
!ERROR: expected ')'
|
|
sync images([1], sync_status)
|
|
|
|
!______ invalid sync-stat-lists: invalid errmsg= ____________
|
|
|
|
! Invalid errmsg-variable keyword
|
|
!ERROR: expected ')'
|
|
sync images(*, errormsg=error_message)
|
|
|
|
! Invalid sync-stat-list: missing 'errmsg='
|
|
!ERROR: expected ')'
|
|
sync images([1], error_message)
|
|
|
|
! Invalid sync-stat-list: missing errmsg-variable
|
|
!ERROR: expected ')'
|
|
sync images(*, errmsg)
|
|
|
|
end program test_sync_images
|