Distinguishing a statement function from an array

[uNouss]

Situation1

      PROGRAM demo
#include "decl.inc"
      DO 10 I=1,10
      TAB(I) = I*I
 10   CONTINUE
      PRINT*, TAB
      END                                

      INTEGER TAB(10)                          

Situation2

      PROGRAM demo
      INTEGER TAB(10)
      DO 10 I=1,10
      TAB(I) = I*I
 10   CONTINUE
      PRINT*, TAB
      END                                

---

1. In Situation1, the parser fortran-src-extras see TAB(I) as a statement function which is wrong
2. In Situation2, the parser fortran-src-extras see TAB(I) as an array which is correct

The reason is that in the first case the declaration of the tab variable is in the #include ..., so the parser has no information that it is an array, whereas in the second case it has the information (declaration of the tab variable) that it is an array.

Idea for a solution: Create an intermediate entity (IAST) corresponding to a statement function and postpone the resolution when the symbols are resolved.