Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/intent_out_12.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 ! { dg-do run }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2 ! PR fortran/87401 - this used to segfault at runtime.
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 ! Test case by Janus Weil.
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5 program assoc_intent_out
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 implicit none
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9 real :: r
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11 associate(o => r)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12 call sub(o)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13 end associate
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15 contains
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17 subroutine sub(out)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18 real, intent(out) :: out
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
19 out = 0.0
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
20 end subroutine
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
21
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
22 end
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
23