------- Comment #1 from kargl at gcc dot gnu dot org 2006-07-18 18:52 ------- The parse tree looks okay to me.
ASSIGN MAIN__:dat date_m(1) ASSIGN MAIN__:xx file_info(MAIN__:dat) IF (<> MAIN__:xx % date % month 1) CALL _gfortran_abort () ENDIF -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28425