------- Comment #1 from deji_aking at yahoo dot ca 2008-10-27 22:31 ------- A simpler code (without cray pointers) as shown below also produces the errors. ... subroutine adw_set(G_nk)
implicit none integer G_nk real*8 Adw_zbc_8(G_nk) integer Adw_fn_I(G_nk) Adw_zbc_8(1:G_nk) = transfer(-1,1.0) Adw_Fn_I (G_nk) = transfer(-1,1.0) return end ... -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37930