В Фортране нет проблем с aliasing-ом.

[thesz]

"Другой смолчал и стал пред ним ходить:"
double precision function dcabs1(z)
double complex z,zz
double precision t(2)
equivalence (zz,t(1))
zz = z
dcabs1 = dabs(t(1)) + dabs(t(2))
return
endНет в этой жизни счастья.

Тьюринг, все же, был очень неправ со своей машиной.