Re: [patch, fortran] PR96686 Namelist group objects shall be defined before appearing in namelist

[Jerry DeLisle <jvdelisle@charter.net>]

On 2/17/21 1:19 AM, Tobias Burnus wrote:
> Hi Jerry,
>
> I note that you have not written that testcase and I am still half
> aspleep, but I fail to see what's wrong with the following program
> (before and after your change):
>
> f2 looks like a local and implicitly typed real variable. At least ifort
> compiles this program successfully.
>
> F2018 has: "A namelist group object shall either be accessed by use or
> host association or shall have its declared type, kind type parameters
> of the declared type, and rank specified by previous specification
> statements or the procedure heading in the same scoping unit or by the
> implicit typing rules in effect for the scoping unit. If a namelist
> group object is typed by the implicit typing rules, its appearance in
> any subsequent type declaration statement shall confirm the implied type
> and type parameters."
>
> Tobias
>
---  snip ---

So the program in question, extracted from namelist_4.f90, showing the 
other possible use of f2.

    program p1

    contains
       integer function f1()
         !f2 = 1   !This gives an error trying to assign a vakue to a
    function.
         j = f2    ! This is OK
         f1 = 1
       end function
       integer function f2()
         f2=1
       end function
    end

As far as I understand, gfortran has this correct, unless there is 
something in the standard I don't know yet.

Jerry