https://gcc.gnu.org/bugzilla/show_bug.cgi?id=60898
--- Comment #10 from Dominique d'Humieres <dominiq at lps dot ens.fr> --- (In reply to Dominique d'Humieres from comment #4) > > After providing all the missing 'USE' items: > > Where did you get them? Adding the following at the beginning of the original test allows to get the error. MODULE kinds integer, parameter :: i_kind = 4, r_single = 4, r_double = 8 END MODULE kinds MODULE constants use kinds, only: r_kind => r_double real(r_kind), parameter :: zero=0.0 real(r_kind), parameter :: one=1.0 real(r_kind), parameter :: two=2.0 real(r_kind), parameter :: three=3.0 real(r_kind), parameter :: four=4.0 real(r_kind), parameter :: five=5.0 real(r_kind), parameter :: half=0.5 END MODULE constants MODULE MODULE_pmat1 END MODULE MODULE_pmat1
