49 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! This test checks for errors in sync all statements based on the3! statement specification in section 11.6.3 of the Fortran 2018 standard.4 5program test_sync_all6 implicit none7 8 integer sync_status9 character(len=128) error_message10 11 !___ standard-conforming statement ___12 13 sync all14 sync all()15 sync all(stat=sync_status)16 sync all( errmsg=error_message)17 sync all(stat=sync_status, errmsg=error_message)18 19 !___ non-standard-conforming statement ___20 21 !______ invalid sync-stat-lists: invalid stat= ____________22 23 !ERROR: expected end of statement24 sync all(status=sync_status)25 26 ! Invalid sync-stat-list: missing stat-variable27 !ERROR: expected end of statement28 sync all(stat)29 30 ! Invalid sync-stat-list: missing 'stat='31 !ERROR: expected end of statement32 sync all(sync_status)33 34 !______ invalid sync-stat-lists: invalid errmsg= ____________35 36 ! Invalid errmsg-variable keyword37 !ERROR: expected end of statement38 sync all(errormsg=error_message)39 40 ! Invalid sync-stat-list: missing 'errmsg='41 !ERROR: expected end of statement42 sync all(error_message)43 44 ! Invalid sync-stat-list: missing errmsg-variable45 !ERROR: expected end of statement46 sync all(errmsg)47 48end program test_sync_all49