Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/common_22.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 !
kono
parents:
diff changeset
3 ! PR fortran/59746
kono
parents:
diff changeset
4 ! Check that symbols present in common block are properly cleaned up
kono
parents:
diff changeset
5 ! upon error.
kono
parents:
diff changeset
6 !
kono
parents:
diff changeset
7 ! Contributed by Bud Davis <jmdavis@link.com>
kono
parents:
diff changeset
8
kono
parents:
diff changeset
9 CALL RCCFL (NVE,IR,NU3,VE (1,1,1,I))
kono
parents:
diff changeset
10 COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
kono
parents:
diff changeset
11 COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
kono
parents:
diff changeset
12 ! the PR only contained the two above.
kono
parents:
diff changeset
13 ! success is no segfaults or infinite loops.
kono
parents:
diff changeset
14 ! let's check some combinations
kono
parents:
diff changeset
15 CALL ABC (INTG)
kono
parents:
diff changeset
16 COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
kono
parents:
diff changeset
17 COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
kono
parents:
diff changeset
18 CALL DEF (NT1)
kono
parents:
diff changeset
19 COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
kono
parents:
diff changeset
20 COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
kono
parents:
diff changeset
21 CALL GHI (NRESL)
kono
parents:
diff changeset
22 COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
kono
parents:
diff changeset
23 COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
kono
parents:
diff changeset
24 END