ieee_9.f90: XFAIL on arm*-*-gnueabi[hf].
[official-gcc.git] / gcc / testsuite / gfortran.dg / assign_11.f90
blob81c0286c4f6b2cf5c84a41f7bbe1c6ddb1f10f45
1 ! { dg-do compile }
2 ! PR 70260 - this used to ICE
3 ! Original test case by Gernard Steinmetz
4 subroutine s (f)
5 integer, external :: f, g
6 integer :: h
7 g = f(2) ! { dg-error "Illegal assignment to external procedure" }
8 h = g(2)
9 end