?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
lto: Remove random_seed from section name.
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr77632_1.f90
blob13fed5991a61e731fe7a2503135e4b183f5ef77f
1 ! { dg-do run }
2 program foo
3 implicit none
4 real, target :: a
5 real, pointer :: b => a
6 if (associated(b, a) .eqv. .false.) stop 1
7 end program foo
Mirror of the offical gcc git repository hosted at gcc.gnu.org