blob: e4e486b64fb0666d473dccf9f1f761f77ea72a00 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! RUN: %flang -fsyntax-only 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
|
