1c { dg-do compile } 2 Subroutine FndSph(Alpha,Rad) 3 Dimension Rad(100),RadInp(100) 4 Do I = 1, NSphInp 5 Rad(I) = RadInp(I) 6 Alpha = 1.2 7 End Do 8 End 9