1! RUN: %python %S/test_errors.py %s %flang_fc1 2! This test checks for errors in sync memory statements based on the 3! statement specification in section 11.6.5 of the Fortran 2018 standard. 4 5program test_sync_memory 6 implicit none 7 8 integer sync_status 9 character(len=128) error_message 10 11 !___ standard-conforming statements ___ 12 13 sync memory 14 sync memory() 15 sync memory(stat=sync_status) 16 sync memory( errmsg=error_message) 17 sync memory(stat=sync_status, errmsg=error_message) 18 19 !___ non-standard-conforming statements ___ 20 21 !______ invalid sync-stat-lists: invalid stat= ____________ 22 23 !ERROR: expected end of statement 24 sync memory(status=sync_status) 25 26 ! Invalid sync-stat-list: missing stat-variable 27 !ERROR: expected end of statement 28 sync memory(stat) 29 30 ! Invalid sync-stat-list: missing 'stat=' 31 !ERROR: expected end of statement 32 sync memory(sync_status) 33 34 !______ invalid sync-stat-lists: invalid errmsg= ____________ 35 36 ! Invalid errmsg-variable keyword 37 !ERROR: expected end of statement 38 sync memory(errormsg=error_message) 39 40 ! Invalid sync-stat-list: missing 'errmsg=' 41 !ERROR: expected end of statement 42 sync memory(error_message) 43 44 ! Invalid sync-stat-list: missing errmsg-variable 45 !ERROR: expected end of statement 46 sync memory(errmsg) 47 48end program test_sync_memory 49