[daip] [!6527]: aips - bug in AU7B.FOR ?

[Michael Bietenholz]

Michael Bietenholz updated #6527
--------------------------------

bug in AU7B.FOR ?
-----------------

           Ticket ID: 6527
                 URL: https://help.nrao.edu/staff/index.php?/Tickets/Ticket/View/6527



I think there is a bug in the 31DEC15 code for /home/aips/31DEC15/AIPS/SUB/AU7B.FOR.  This routine will not compile with gfortran 4.8.2

In AU7B.FOR, there is:
      INTEGER   IBLK, IBUFF(256), HIBUFF(256), ITRIM, JTRIM, ICUR, IERR,
      .... [many integer variables defined]...
     *   MONTH(12)
      ....
      DATA MONTH /'JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN', 'JUL',
     *   'AUG', 'SEP', 'OCT', 'NOV', 'DEC'/

Now the first defines MONTH as an integer array, but the DATA statement initializes it with CHARACTER*3.  I made the modification of dropping MONTH from the INTEGER define statement, and adding CHARACTER*3 MONTH(12).   It didn't seem to me that this would have any untoward consequences.  Doing so allowed me to compile AU7B (and the rest of 31DEC15) with some fiddling with the CCOPTS etc. The only other change required of the codebase to strip the "-axWPT" compiler flag,  which I think is intel-specific, out of XAS.SHR since the XAS build doesn't seem to use the compiler flags set for other tasks.  If you want the CCOPTS etc details I'm happy to supply them.

I'm surprised that your compiler did not complain about the defining as integer and then assigning char*3 value in AU7B.FOR.

------------------------------------------------------
Staff CP:  https://help.nrao.edu/staff