Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/data_components_1.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! Check the fix for PR30879, in which the structure ! components in the DATA values would cause a syntax ! error. ! ! Contributed by Joost VandeVondele <jv244@cam.ac.uk> ! TYPE T1 INTEGER :: I END TYPE T1 TYPE(T1), PARAMETER :: D1=T1(2) TYPE(T1) :: D2(2) INTEGER :: a(2) DATA (a(i),i=1,D1%I) /D1%I*D1%I/ DATA (D2(i),i=1,D1%I) /D1%I*T1(4)/ print *, a print *, D2 END