Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/pr43808.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children | 84e7813d76e9 |
rev | line source |
---|---|
111 | 1 ! PR target/43808 |
2 ! { dg-do run } | |
3 ! { dg-options "-O0 -fipa-reference -fschedule-insns -fstrict-aliasing" } | |
4 | |
5 type :: a | |
6 integer, allocatable :: i(:) | |
7 end type a | |
8 type :: b | |
9 type (a), allocatable :: j(:) | |
10 end type b | |
11 type(a) :: x(2) | |
12 type(b) :: y(2) | |
13 x(1) = a((/1,2,3,4/)) | |
14 x(2) = a((/1,2,3,4/)+10) | |
15 y(1) = b((/x(1),x(2)/)) | |
16 y(2) = b((/x(1),x(2)/)) | |
17 if (y(1)%j(1)%i(1) .ne. 1) call abort | |
18 end |