program Gaussimplicit noneinteger::w(1)real::a(7)=(/1,2,42,4,5,6,7/)w=maxloc(a)print*,wend 把 w 定义成只有一个元素的数组即可。
