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

    <tr>
        <th>Summary</th>
        <td>
            [flang] [regression] preprocessor issue with include file
        </td>
    </tr>

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

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

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

<pre>
    consider the following input files
sub1.F90
```module add_tmp
  public :: add_tmp_double
  contains
#define _rk _8
#include "./sub2.F90"
end module```

sub2.F90
```subroutine add_tmp_double
  real :: ev_scale_value
  ev_scale_value = 1.0_rk
end subroutine```

$flang sub1.F90
```error: Semantic errors in sub1.F90
././sub2.F90:3:24: error: Parameter 'rk' not found
    ev_scale_value = 1.0_rk
 ^^
./sub1.F90:6:1: error: included here
  #include "./sub2.F90"```
</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJx8k9-OpCoQxp8Gb8gYLdTWCy-c9PH6JPsABqRUdhAMf3qyb79Ru2e2J5NJSEgKqr7fVwXcezUbxJaUr6S8JjyGxbrWL-rGHV85d9wmwso_7WiNVxIdDQvSyWpt35WZqTJbDHRSGj3JOh9FnvZNRrKOVNm5ViujRsqlHMK6kayjdItCq5ES1hHWPU4GaaPQeFwYrQlcmb0kASZxUgbp4N7oUJ8hZUYdJVICkBLofRRw6AKQrEMj6an6AbFnHXjwFc9H4WwMu8A3IA65fnDibfAj1zjcuI7n8XOIEnaleZoN7u1O8Vn8CwmBYtLczPS7jqFz1u2Kv3DlJqiRHhFPlfn3_m78yTzrGGEdFAfso8b_-xwxoKMELu6NwIUaG-hko5GHh59dUFL-t69T7kOddRVhXf6kdJ-JpAu6sz0_D-phN5Etkw1reIJtfilYXrKasWRpy0leqgaqrJmKupC1rJoaGkREmedCYKJayKDMGNRZA6xkKUeeYyUqyS9MTFiTIsOVK51qfVtT6-ZEeR-xzRljTZNoLlD74-0DHPPYucpr4to94UXE2ZMi08oH_1kiqKCPD3NmlFdKyleHs0PvlTV7YHO4OTui99bRQ5K-q7A8WnT8lyQ63S4hbH5_X9AT6GcVlijS0a4E-l3vvr1szv7GMRDoj2KeQH-3cGvhbwAAAP__bJgm7A">