------- Comment #3 from burnus at gcc dot gnu dot org 2007-12-14 16:24 ------- As noted by Tobias Schlüter, the following valid program is rejected:
INTEGER = 1 PRINT *, (/ INTEGER /) END One solution is to check for the "::" and if it does not exists, set "seen_ts = 0" and "gfc_current_locus = where". One also has to move the gfc_notify_std down (e.g. after "done:") and check then whether seen_ts is set. I think that's what I would do. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27997
