------- Additional Comments From paulthomas2 at wanadoo dot fr 2005-08-03 11:51 ------- Two separate USE statements works correctly, as the example below can demonstrate. This has got to be solvable....
Paul T module a integer, parameter :: b = kind(1.e0) end module a program d use a, only : e => b use a, only : f => b real(e) x real(f) y x = 1.e0_e y = 1.e0_f print *, x, y end program d -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18878