1! RUN: %flang -fsyntax-only -pedantic 2>&1 %s | FileCheck %s 2 3! Test that a warning is emitted when a named common block appears in 4! several scopes with a different storage size. 5 6subroutine size_1 7 common x, y 8 common /c/ xc, yc 9end subroutine 10 11subroutine size_2 12 ! OK, blank common size may always differ. 13 common x, y, z 14 !CHECK: portability: A named COMMON block should have the same size everywhere it appears (12 bytes here) 15 common /c/ xc, yc, zc 16end subroutine 17