<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=https://github.com/llvm/llvm-project/issues/140941>140941</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            Flang semantic error depending on definition order of size/dimension arguments
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang
      </td>
    </tr>

    <tr>
      <th>Assignees</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Reporter</th>
      <td>
          hansec
      </td>
    </tr>
</table>

<pre>
    Hello,

Flang (20.1.5) currently fails in some cases where a size argument, that is also an argument itself is defined after it’s first use. For example, the following simple test case

```fortran
MODULE test_mod
IMPLICIT NONE
CONTAINS
SUBROUTINE test_sub(a,n)
INTEGER(4), INTENT(in) :: a(n)
INTEGER(8), INTENT(in) :: n
END SUBROUTINE test_sub
END MODULE test_mod
```

results in the error

```
./test.F90:6:27: error: The type of 'n' has already been implicitly declared
  INTEGER(8), INTENT(in) :: n
                            ^
./test.F90:4:23: Implicit declaration of 'n'
  SUBROUTINE test_sub(a,n)
                        ^
```

Note that while the error points to the subroutine definition the actual error appears to be caused by implicit definition of `n` in the declaration of `a`. Indeed, if `n` is defined before `a` or if `n` is of default integer type (4 bytes in this case) the error is not thrown.

To be explicit both of the following work

```fortran
INTEGER(4), INTENT(in) :: a(n)
INTEGER, INTENT(in) :: n
```

```fortran
INTEGER(8), INTENT(in) :: n
INTEGER(4), INTENT(in) :: a(n)
```

I am not sure if this is Flang being pedantic or not, but every other Fortran compiler I work with (Intel, GCC, Cray) supports this ordering of code so it would be nice to not have to change things just to support Flang. This seems somewhat related to [#106021](https://github.com/llvm/llvm-project/issues/106021).

I tried to look around to see if this was reported earlier but couldn’t find anything. So apologies if this is a repeat. Thanks!
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJykVt-P2jgQ_mvMy-gixyGQPOQhZaGH1LKnln0-OcmEuGvsyHaWcn_9aRLY3bJ3W90VIQXs-fHNN984lt6rg0EsWPqBpXczOYTOuqKTxmM9q2xzLn5HrS0TK8ZLxsuNluYATGSCR3GUMpFDPTiHJugztFJpD8qAt0eEWnr0cOrQIUjw6i8E6Q7DEU1gYgWhkwGUB6m9BWme90AFj7qlrQZbZbAB2QZ0oAJbC5ZxluceWuV8gMFjBBvrAL_LY69xiovQWq3tSZkDeEXrENCHEdBUBVvw6dtaF5w0jJef7-8ePq1Hwz-PtmG83H7-49N2td3D7n63Zrxc3e_25Xb3lfHy68OHL_cP--3u4uCHiolMMrEyTOTku9uvP66_MJHNaUGsgFZ2eyYyRSbAkpIlJUgmsjcu2bsuBHa9u4N_wjDtvC3lud6pfId-0GHsFLGFzll3QwzjZcTEhmJEm5yzpFywpBRLQjDZJyXsO4Rw7hFsC0wsDRNL6CS11KFszlAhGqAGqFqRPhqstXRIiAD-S73wzoel67dg5wQ2IfftJf0luQzKmld4x-A_bef7uW_Y3dmAk7pPnSLtXSmG3ioTPAQ7rvmhcnYIyuAkdDVCox1Zh0Hqi5Pse5Ru9KpoqAaPDVTnZ15fO1NdC27Ygl97e1v1gku24BFsTYPYEOvqlc_LyFXYWodXe7Duxs62ZCoHHUCZgAd0kxJI8VCdA17Upfw0diJ_xYPyYGyA0Dl7MtHE2n4sD79fiqps6CjJj9N8su7xXyf4V2buPfHdtPfdzD-X8v9AeQNgC_I48ucHh9SWkWXlYTqbKySmemykCaqmzhk7HrjVEACf0J3Bhg4dnZuEH2p77JVGB9uRXzip0FEftyagJsePqxU9Vk6eCaAf-t460jHlta5BRxltC7VtELwFFeBkB00qAqNqJO0S4E4-jb_rTpoDDYYyBw_fBh9o9RJ3KiOCPUX3iEc_vk5ONFAOtQzYkDW9sEQS8wUXMUvvmMi6EHpP7IkNE5uDCt1QRbU9MrHR-un6-K139hvWgYmN8n5Az8TmEkXk0ZXh4NSURlv7CNLZwYx_Pb4wfpIeHBJkbACl0wrdSHJNtZvnl1WAVpkGpDmPBUfw1YLsrbYHRVPy0j9J4VAGql2aR89EPGuKpMmTXM6wiJfzZZbyeJnMukLwSlZJ06ZzkbayaudZVSU8los0a-Z53s5UIbhIeSrieJku4iRqlm2KadvmVVxXabZkc45HqXRErETWHWYjH0U85_k8nmlZofbjvUCIllrChKArgitGGqvh4Nmca-WDfwkRVNBYTEL0eJwkOA19gz2aZlSK-eHMIgGReuiGwMSmUUc0nnauNwI_G5wufqG9U0VPhfg7AAD__zsFv3M">