Mercurial > hg > CbC > CbC_llvm

comparison flang/test/Semantics/block-data01.f90 @ 173:0572611fdcc8 llvm10 llvm12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
reorgnization done
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 11:55:54 +0900
parents
children 2e18cbf3894f
comparison
equal deleted inserted replaced
172:9fbae9c8bf63 173:0572611fdcc8
1 ! RUN: %S/test_errors.sh %s %t %f18
2 ! Test BLOCK DATA subprogram (14.3)
3 block data foo
4 !ERROR: IMPORT is not allowed in a BLOCK DATA subprogram
5 import
6 real :: pi = asin(-1.0) ! ok
7 !ERROR: An initialized variable in BLOCK DATA must be in a COMMON block
8 integer :: notInCommon = 1
9 integer :: uninitialized ! ok
10 !ERROR: 'p' may not appear in a BLOCK DATA subprogram
11 procedure(sin), pointer :: p => cos
12 !ERROR: 'p' is already declared as a procedure
13 common /block/ pi, p
14 real :: inBlankCommon
15 data inBlankCommon / 1.0 /
16 common inBlankCommon
17 !ERROR: An initialized variable in BLOCK DATA must be in a COMMON block
18 integer :: inDataButNotCommon
19 data inDataButNotCommon /1/
20 !ERROR: Two objects in the same EQUIVALENCE set may not be members of distinct COMMON blocks
21 integer :: inCommonA, inCommonB
22 common /a/ inCommonA, /b/ inCommonB
23 equivalence(inCommonA, inCommonB)
24 integer :: inCommonD, initialized ! ok
25 common /d/ inCommonD
26 equivalence(inCommonD, initialized)
27 data initialized /2/
28 end block data