17 lines
476 B
Fortran
17 lines
476 B
Fortran
|
! 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
|