home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / lang / fortran / 4218 < prev    next >
Encoding:
Text File  |  1992-11-07  |  1.5 KB  |  49 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!charon.amdahl.com!pacbell.com!decwrl!sun-barr!ames!saimiri.primate.wisc.edu!zaphod.mps.ohio-state.edu!news.acns.nwu.edu!ftpbox!mothost!white!sapphire.rtsg.mot.com!iott
  3. From: iott@rtsg.mot.com (Joel K. Iott)
  4. Subject: Z'hexno' gives compilation errors
  5. Message-ID: <1992Nov5.163755.18693@rtsg.mot.com>
  6. Sender: news@rtsg.mot.com
  7. Nntp-Posting-Host: amethyst
  8. Organization: Motorola Inc.
  9. Date: Thu, 5 Nov 1992 16:37:55 GMT
  10. Lines: 37
  11.  
  12.  
  13. I am trying to compile the following file on an Apollo workstation:
  14.  
  15.       SUBROUTINE VT100 (CURSOR, LCURSOR)
  16. C
  17. C     CURSOR CONTROL CHARACTERS FOR A VT100 TERMINAL
  18. C
  19.       INTEGER ZERO, SEMI, H
  20. C
  21.       INTEGER*4 CURSOR(10,22), LCURSOR(22), CDATA(22), LCDATA(22),
  22.      1 BUFFER4(2)
  23. C
  24.       LOGICAL CURRADDR
  25. C
  26.       DATA ZERO/Z'30'/, SEMI/Z'3B'/, H/Z'48'/
  27.       DATA CDATA/
  28.      1 Z'1B5B4800',Z'1B5B4100',Z'1B5B4200',Z'1B5B4400',Z'1B5B4300',
  29.      2 Z'1B5B0000',Z'1B5B3652',Z'1B5B324A',Z'00000000',Z'1B5B304B',
  30.      3 Z'1B5B304A',Z'00000000',Z'00000000',Z'00000000',Z'00000000',
  31.      4 Z'00000000',Z'00000000',Z'00000000',Z'07000000',Z'09000000',
  32.      5 Z'0D000000',Z'0A000000'/
  33.       DATA LCDATA/3,3,3,3,3, 2,4,4,0,4, 4,0,0,0,0, 0,0,0,1,1, 1,1/
  34.  
  35. ...etc.
  36.  
  37. and get the following errors.  Any help would be appreciated.
  38.  
  39.  
  40. f77   -c vt100.f
  41. vt100.f:
  42. (00012)       DATA ZERO/Z'30'/, SEMI/Z'3B'/, H/Z'48'/
  43. **** Error #224 on Line 12: [DATA ZERO/@Z] symbolic name of constant expected
  44. (00018)      5 Z'0D000000',Z'0A000000'/
  45. **** Error #224 on Line 18: [          @Z] symbolic name of constant expected
  46.  
  47. Thanks
  48. Joel
  49.