Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!rutgers!gatech!uflorida!stat!stat.fsu.edu!mccalpin From: mccalpin@masig3.ocean.fsu.edu (John D. McCalpin) Newsgroups: comp.sys.sgi Subject: Trouble with DATA statement Message-ID:Date: 14 Aug 89 11:16:09 GMT Sender: news@stat.fsu.edu Distribution: usa Organization: Supercomputer Computations Research Institute Lines: 37 The following code section does not compile on the Personal IRIS. It appears to be standard FORTRAN --- it comes from TOOLPACK, which is supposed to be very standard. It compiles just fine on the IRIS 3000 and on both Sun 3 and Sun 4's. The compiler error message is not helpful: Syntax error on line 15 ---- (This line contains the DATA statement) Replacing the 'F' and 'T' variables with .FALSE. and .TRUE. does not help, leading me to believe that the implied DO-loops are causing the trouble.... ---------------------------------------------------------------------------- SUBROUTINE CIITEM(NODE,OCCURS,STYPE,STATUS,INTFIL) INTEGER MAXL,NCII,CIIFIL,CIIERR PARAMETER (MAXL=11,NCII=21,CIIFIL=7,CIIERR=5) LOGICAL T,F PARAMETER (T=.TRUE.,F=.FALSE.) INTEGER PTR,TEXT(134),CIINUM,TYPCHK,CIITYP(NCII),I, + NTYPE,DTYPE,SYMBOL(8),SSTYPE(132) LOGICAL CIIAST(NCII),CIIVAR(NCII),CIISTY(8,NCII) CHARACTER*(MAXL) CIINAM,CIILST(NCII) SAVE CIILST,CIITYP,CIIAST,CIIVAR,CIISTY,SSTYPE DATA (CIILST(I),CIIAST(I),CIITYP(I),CIIVAR(I), + (CIISTY(J,I),J=1,8),I=19,NCII)/ +'STATUS',F,6,F,F,F,T,T,F,F,F,F, +'UNFORMATTED',F,6,T,F,F,F,F,T,F,F,F, +'UNIT',T,0,F,T,T,T,T,T,T,T,T/ END ---------------------------------------------------------------------------- -- John D. McCalpin - mccalpin@masig1.ocean.fsu.edu - mccalpin@nu.cs.fsu.edu mccalpin@delocn.udel.edu