Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/equiv_constraint_4.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! { dg-options "-O0" } ! PR20901 - check that derived/numeric equivalence works with std!=f95. ! Contributed by Joost VandeVondele <jv244@cam.ac.uk> TYPE data_type SEQUENCE INTEGER :: I END TYPE data_type INTEGER :: J = 7 TYPE(data_type) :: dd EQUIVALENCE(dd,J) if (dd%i.ne.7) call abort () END