http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47878
--- Comment #20 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-02-24 17:41:20 UTC --- Comment on attachment 23456 --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=23456 gcc46-pr47878.patch >+ read (99, '(5i3)') a >+ if (any (a.ne.(/1, 2, 3, 0, 0/))) call abort >+end I leave the reviewing to Jerry (or Janne), but I would add a close(99, status='delete') to keep the testing directory tidy.
