------- Comment #40 from jv244 at cam dot ac dot uk 2009-07-25 16:53 -------
(In reply to comment #38)
> Too large, not reducing.
since you were so kind fixing PR40005, I felt some obligation ;-)
MODULE replica_types
TYPE replica_env_type
END TYPE replica_env_type
CONTAINS
SUBROUTINE rep_env_create(rep_env, para_env, input, nrep, prep,&
sync_v,keep_wf_history,row_force)
END SUBROUTINE rep_env_create
SUBROUTINE rep_envs_add_rep_env(rep_env)
TYPE(replica_env_type), POINTER :: rep_env
END SUBROUTINE rep_envs_add_rep_env
END MODULE replica_types
MODULE ep_types
USE replica_types
TYPE ep_env_type
TYPE(replica_env_type), POINTER :: mol_envs
END TYPE ep_env_type
TYPE ep_env_p_type
TYPE(ep_env_type), POINTER :: ep_env
END TYPE ep_env_p_type
TYPE(ep_env_p_type), DIMENSION(:), POINTER :: ep_envs
CONTAINS
SUBROUTINE ep_force_release()
END SUBROUTINE ep_force_release
END MODULE ep_types
bug.f90:7:0: internal compiler error: in gfc_create_module_variable, at
fortran/trans-decl.c:3328
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40011
