Re: Testsuite patch for PR fortran/16511

[Steve Kargl <sgk at troutmask dot apl dot washington dot edu>]

On Tue, Jul 13, 2004 at 09:24:06PM -0700, Steve Kargl wrote:
> On Wed, Jul 14, 2004 at 01:52:36PM +1000, Billinghurst, David (CALCRTS) wrote:
> > I now think the current gfortran behaviour is standard conforming.
> 
> Are you sure?  NAG's Fortran 95 compiles this code
> without issuing an error.
> 
> kargl[207] f95 -c -C=all 19990905-0.f
> Obsolescent: 19990905-0.f, line 2: Fixed source form
> 
> I'll post a message to c.l.f.
> 

I just check the code with Lahey's on-line diaginostic tool.
The code appears to be conforming.

Lahey/Fujitsu Fortran 95 Source Check Output

Compiling program unit sub at line 1:
  3909-W: "SOURCE.F90", line 1: Fixed form source is an obsolescent feature.
Encountered 0 errors, 1 warning, 0 informations in file SOURCE.F90.
Compiling file SOURCE.F90.
Lahey/Fujitsu Fortran 95 Listing and Cross Reference


Source file       : SOURCE.F90

 External subroutine subprogram "sub"
  (line-no.)(nest)
          1        * =foo0.f in Burley's g77 test suite.
          2              subroutine sub(a)
          3              common /info/ iarray(1000)
          4              equivalence (m,iarray(100)), (n,iarray(200))
          5              real a(m,n)
          6              a(1,1) = a(2,2)
          7              end

 Diagnostic messages: program name(sub)
   3909-W: "SOURCE.F90", line 1: Fixed form source is an obsolescent feature.

 Procedure information
   Lines      : 7
   Statements : 6

 Scoping unit of external sub-program : sub
   Attribute and Cross reference of name
     a
      |(Class and Type) : variable name, REAL(4)
      |(Attributes)     : DIMENSION, dummy-argument
      |(Declaration)    : 2  5
      |(Definition)     : 6
      |(Reference)      : 6
     iarray
      |(Class and Type) : variable name, INTEGER(4)-implicit
      |(Attributes)     : DIMENSION, common-block-object, storage-associated
      |(Declaration)    : 3  4  4
      |(Definition)     : 
      |(Reference)      : 
     info
      |(Class and Type) : common name
      |(Attributes)     : 
      |(Declaration)    : 3
      |(Definition)     : 
      |(Reference)      : 
     m
      |(Class and Type) : variable name, INTEGER(4)-implicit
      |(Attributes)     : storage-associated
      |(Declaration)    : 4
      |(Definition)     : 
      |(Reference)      : 
     n
      |(Class and Type) : variable name, INTEGER(4)-implicit
      |(Attributes)     : storage-associated
      |(Declaration)    : 4
      |(Definition)     : 
      |(Reference)      : 
     sub
      |(Class and Type) : external subroutine name
      |(Attributes)     : 
      |(Declaration)    : 
      |(Definition)     : 2
      |(Reference)      : 

 Total information
   Procedures       : 1
   Total lines      : 7
   Total statements : 6
-- 
Steve