63 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check for errors in sync images statements3 4program test_sync_images5 implicit none6 7 integer sync_status, me8 character(len=128) error_message9 10 !___ standard-conforming statement ___11 12 sync images(*, stat=sync_status, errmsg=error_message)13 sync images(*, stat=sync_status )14 sync images(*, errmsg=error_message)15 sync images(* )16 17 sync images(me, stat=sync_status, errmsg=error_message)18 sync images(me+1, stat=sync_status, errmsg=error_message)19 sync images(1, stat=sync_status, errmsg=error_message)20 sync images(1, stat=sync_status )21 sync images(1, errmsg=error_message)22 sync images(1 )23 24 sync images([1], stat=sync_status, errmsg=error_message)25 sync images([1], stat=sync_status )26 sync images([1], errmsg=error_message)27 sync images([1] )28 29 !___ non-standard-conforming statement ___30 31 !ERROR: expected '('32 sync images33 34 !______ invalid sync-stat-lists: invalid stat= ____________35 36 ! Invalid sync-stat-list keyword37 !ERROR: expected ')'38 sync images(1, status=sync_status)39 40 ! Invalid sync-stat-list: missing stat-variable41 !ERROR: expected ')'42 sync images(1, stat)43 44 ! Invalid sync-stat-list: missing 'stat='45 !ERROR: expected ')'46 sync images([1], sync_status)47 48 !______ invalid sync-stat-lists: invalid errmsg= ____________49 50 ! Invalid errmsg-variable keyword51 !ERROR: expected ')'52 sync images(*, errormsg=error_message)53 54 ! Invalid sync-stat-list: missing 'errmsg='55 !ERROR: expected ')'56 sync images([1], error_message)57 58 ! Invalid sync-stat-list: missing errmsg-variable59 !ERROR: expected ')'60 sync images(*, errmsg)61 62end program test_sync_images63