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