------- Comment #8 from howarth at nitro dot med dot uc dot edu 2009-01-10
19:57 -------
Jerry,
If I use the following patch to xplor-nih....
--- xrmani.f.org 2009-01-09 17:48:46.000000000 -0500
+++ xrmani.f 2009-01-10 14:29:42.000000000 -0500
@@ -363,6 +363,7 @@
END IF
END DO
C
+ write(6,*) 'before if ', H, K, L, WD
IF (.NOT.COND) THEN
CALL SAVEWD
OK=.TRUE.
@@ -375,7 +376,9 @@
CALL XAB(FOBS(REFLCT),AFOBS,PFOBS*RAD)
C============================================================
ELSE
+ write(6,*) 'before chkend ', H, K, L, WD
CALL CHKEND('REFLection>',DONE)
+ write(6,*) 'after chkend ', H, K, L, WD
END IF
END IF
IF (.NOT. (DONE)) goto 137
I find that without r14310, I get...
before if 4 0 7 INDEX
before if 4 1 7 END
before chkend 4 1 7 END
after chkend 4 1 7 END
whereas with r143102, I get...
before if 4 0 7 INDEX
before if 4 1 7 FWINDOW
before chkend 4 1 7 FWINDOW
%REFLection-ERR: unrecognized command:
fwindow
^^^^^^^
after chkend 4 1 7 FWINDOW
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38772
