Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/associate_39.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 compile }
2 !
3 ! PR 86935: Bad locus in ASSOCIATE statement
4 !
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
6
7 implicit none
8
9 type :: t
10 real :: r = 0.5
11 integer :: i = 3
12 end type
13
14 type(t) :: x
15
16 associate (r => x%r, &
17 i => x%ii) ! { dg-error "Invalid association target" }
18
19 end