Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr94030_2.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 2b5abeee2509 |
children |
line wrap: on
line source
! { dg-do compile } ! ! Provided by Steve Kargl. subroutine foo(n,m) integer, intent(in) :: n, m integer a(n) real b(n) equivalence(a,b) if (m /= 2) then a = 1 print *, a(1) else b = 42. print *, b(1) end if end subroutine subroutine bar(m) integer, intent(in) :: m integer x(8) real y(8) equivalence(x,y) if (m /= 2) then x = 1 print *, x(1) else y = 42. print *, y(1) end if end subroutine ! { dg-error "Array '.' at .1. with non-constant bounds cannot be an EQUIVALENCE object" " " { target *-*-* } 9 }