16 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! C1108 -- Save statement in a BLOCK construct shall not conatin a3! saved-entity-list that does not specify a common-block-name4 5program main6 integer x, y, z7 real r, s, t8 common /argmnt2/ r, s, t9 !ERROR: 'argmnt1' appears as a COMMON block in a SAVE statement but not in a COMMON statement10 save /argmnt1/11 block12 !ERROR: SAVE statement in BLOCK construct may not contain a common block name 'argmnt2'13 save /argmnt2/14 end block15end program16