Mercurial > hg > CbC > CbC_gcc

comparison 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
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
1 ! { dg-do run }
2 ! PR fortran/87401 - this used to segfault at runtime.
3 ! Test case by Janus Weil.
4
5 program assoc_intent_out
6
7 implicit none
8
9 real :: r
10
11 associate(o => r)
12 call sub(o)
13 end associate
14
15 contains
16
17 subroutine sub(out)
18 real, intent(out) :: out
19 out = 0.0
20 end subroutine
21
22 end
23