https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70070
--- Comment #12 from kargl at gcc dot gnu.org --- (In reply to G. Steinmetz from comment #11) > A generator might be helpful for validations : > Thanks. AFAICT, the patch I submitted yesterday rejects the generated codes, because > if ( kvar == 1 ) then > write (1, fmt) ' data (c(i:i), i=1,', j, ') /', j, '*"c"/' > else > write (1, fmt) ' data (c(i:i), i=', j, ',', i, ') /', i-j+1, > '*"c"/' c(i:i) is no now correctly identified as invalid in a DATA statement. gfortran has always handled implied-do loops poorly.
