1*1c91d9bdSPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic 22c8cb9acSJean Perier 32c8cb9acSJean Perier! Test check that enforce that a common block is initialized 42c8cb9acSJean Perier! only once in a file. 52c8cb9acSJean Perier 62c8cb9acSJean Periersubroutine init_1 72c8cb9acSJean Perier common x, y 82c8cb9acSJean Perier common /a/ xa, ya 92c8cb9acSJean Perier common /b/ xb, yb 1093dca9fbSEmil Kieri !WARNING: Blank COMMON object 'x' in a DATA statement is not standard 112c8cb9acSJean Perier data x /42./, xa /42./, yb/42./ 122c8cb9acSJean Perierend subroutine 132c8cb9acSJean Perier 142c8cb9acSJean Periersubroutine init_conflict 152c8cb9acSJean Perier !ERROR: Multiple initialization of COMMON block // 162c8cb9acSJean Perier common x, y 172c8cb9acSJean Perier !ERROR: Multiple initialization of COMMON block /a/ 182c8cb9acSJean Perier common /a/ xa, ya 192c8cb9acSJean Perier common /b/ xb, yb 202c8cb9acSJean Perier equivalence (yb, yb_eq) 2193dca9fbSEmil Kieri !WARNING: Blank COMMON object 'x' in a DATA statement is not standard 222c8cb9acSJean Perier !ERROR: Multiple initialization of COMMON block /b/ 232c8cb9acSJean Perier data x /66./, xa /66./, yb_eq /66./ 242c8cb9acSJean Perierend subroutine 25