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