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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Compilation abnormally terminates when the array size is too large
        </td>
    </tr>

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

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

    <tr>
      <th>Reporter</th>
      <td>
          ohno-fj
      </td>
    </tr>
</table>

<pre>
    ```
Version of flang : 20.0.0(1c4341d176492da5f276937b84a3d0c959e4cf5b)/AArch64

```

In the attached program, when the array size is too large, a compilation terminates abnormally.  
Gfortran and ifx output compilation messages and result in compilation errors.  
flang should do the same thing as Gfortran and ifx.

The following are the test program, Flang, Gfortran and ifx compilation/execution result.

msg0520_.F90:
```fortran
      character*32000,parameter::a(150000000000000)=""
      character*32000,parameter::b(150000000000000)=""
      character*1,    parameter::c(150000000000000)=a//b
      c='a'
      print *,c(11)
      end
```

```
$ flang msg0520_.F90
flang-20: error: unable to execute command: Killed
flang-20: error: flang frontend command failed due to signal (use -v to see invocation)
flang version 20.0.0git (https://github.com/llvm/llvm-project.git 1c4341d176492da5f276937b84a3d0c959e4cf5b)
Target: aarch64-unknown-linux-gnu
Thread model: posix
InstalledDir: /work/groups/ssoft/compiler/llvm/aarch64/main-20250127-1c4341d17649/bin
Build config: +assertions
flang-20: note: diagnostic msg:
********************

PLEASE ATTACH THE FOLLOWING FILES TO THE BUG REPORT:
Preprocessed source(s) and associated run script(s) are located at:
flang-20: note: diagnostic msg: /tmp/msg0520_-93ceaa
flang-20: note: diagnostic msg: /tmp/msg0520_-93ceaa.sh
flang-20: note: diagnostic msg:

********************
$
```

```
$ cat /tmp/msg0520_-93ceaa
#line "./msg0520_.F90" 1
      character*32000,parameter::a(150000000000000)=""
      character*32000,parameter::b(150000000000000)=""
      character*1,    parameter::c(150000000000000)=a//b
      c='a'
      print *,c(11)
      end
$
```

```
$ cat /tmp/msg0520_-93ceaa.sh
# Crash reproducer for clang version 20.0.0git (https://github.com/llvm/llvm-project.git 1c4341d176492da5f276937b84a3d0c959e4cf5b)
# Driver args: "msg0520_.F90"
# Original command:  "/work/groups/ssoft/compiler/llvm/aarch64/main-20250127-1c4341d17649/bin/flang" "-fc1" "-triple" "aarch64-unknown-linux-gnu" "-emit-obj" "-mrelocation-model" "pic" "-pic-level" "2" "-pic-is-pie" "-target-cpu" "generic" "-target-feature" "+outline-atomics" "-target-feature" "+v8a" "-target-featur
e" "+fp-armv8" "-target-feature" "+neon" "-resource-dir" "/work/groups/ssoft/compiler/llvm/aarch64/main-20250127-1c4341d17649/lib/clang/20" "-mframe-pointer=non-leaf" "-o" "/tmp/msg0520_-e41d69.o" "-x" "f95-cpp-input" "msg0520_.F90"
 "/work/groups/ssoft/compiler/llvm/aarch64/main-20250127-1c4341d17649/bin/flang" "-fc1" "-triple" "aarch64-unknown-linux-gnu" "-emit-obj" "-mrelocation-model" "pic" "-pic-level" "2" "-pic-is-pie" "-target-cpu" "generic" "-target-feature" "+outline-atomics" "-target-feature" "+v8a" "-target-feature" "+fp-armv8" "-tar
get-feature" "+neon" "-mframe-pointer=non-leaf" "-x" "f95-cpp-input" "msg0520_-93ceaa"
$
```

```
$ gfortran msg0520_.F90
msg0520_.F90:1:51:

    1 |       character*32000,parameter::a(150000000000000)=""
      |                                                   1
Error: Integer too big for its kind at (1). This check can be disabled with the option ‘-fno-range-check’
msg0520_.F90:2:51:

    2 |       character*32000,parameter::b(150000000000000)=""
      |                                                   1
Error: Integer too big for its kind at (1). This check can be disabled with the option ‘-fno-range-check’
msg0520_.F90:3:51:

    3 |       character*1,    parameter::c(150000000000000)=a//b
      |                                                   1
Error: Integer too big for its kind at (1). This check can be disabled with the option ‘-fno-range-check’
msg0520_.F90:5:16:

    5 |       print *,c(11)
      |                1
Error: Syntax error in PRINT statement at (1)
msg0520_.F90:4:8:

    4 |       c='a'
      |        1
Error: Cannot convert CHARACTER(1) to REAL(4) at (1)
$
```

```
$ ifx msg0520_.F90 -> Kill because compilation does not end after message output
msg0520_.F90(1): warning #8221: This integer constant is outside the default integer range - using INTEGER(8) instead.   [150000000000000]
      character*32000,parameter::a(150000000000000)=""
-----------------------------------^
msg0520_.F90(1): error #6258: The CHARACTER string result is greater than 7198 characters.   [A]
      character*32000,parameter::a(150000000000000)=""
---------------------------------^
msg0520_.F90(2): warning #8221: This integer constant is outside the default integer range - using INTEGER(8) instead.   [150000000000000]
      character*32000,parameter::b(150000000000000)=""
-----------------------------------^
msg0520_.F90(2): error #6258: The CHARACTER string result is greater than 7198 characters.   [B]
      character*32000,parameter::b(150000000000000)=""
---------------------------------^
msg0520_.F90(3): warning #8221: This integer constant is outside the default integer range - using INTEGER(8) instead.   [150000000000000]
      character*1,    parameter::c(150000000000000)=a//b
-----------------------------------^
  C-c C-c
$
```

</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJzsWV9zozgS_zTySxcuEGDDgx-IY8-kLjWZyvjuHq9kaEAzIFGScDL36a8kILHzZ5JsZndvt4YiFYxare5f_1MLpjWvBOKKxGckPp-x3tRSrWQtpFd-ne1l8X1FFv54-9m_UGkuBcgSyoaJCkiYAfXn_twnNAnyKIyCIlguopQWLC7pcpGGy30SsbDw8zROMcrLeE9oSug2y1ReLyLiZ_Y-WoT42YUAUyMwY1heYwGdkpViLaFruKlxHFSKfQfN_4vANRgpoWGqQkvDIJdtxxtmrLAGVcsFM6iB7YVULWua73MA4mcfSqmMYgKYKICXtyB70_XmZHqLWrPKThYFKNR9Y4CLExJUSio9sBxw0bXsmwIK6UTVrEUwNRcVMA0PF50POu9qhFI2jbxxdArdVIPaHKu_teztwyPRjwQidIu3mPdOuEHkcZFWV35M_f_Mt6lPwhPkR37Ez8Bdec0Uyw0qQrOQ-r5P6LpjirVo34UZCTNmjR77x5e1bXhOKLX3G1jtfwOrwOIAAA9Y5c-xYoRuCd3u75k5_ktG6PLuXae4MEBoRujacQrs5GkURfHYW09-0mgMjROoR7_wqEV98Bf70Au2bxCMhMFeaK3YMlHYwX_wpsHiuanDIqWSwqAopnlQMt5gAUXvuNroZg0QmvQawTu4d4jAxUHmo6ukd057GKN7COiKWxiS2phOW2AddhU3db-f57IldNs0h-mf1yn5FXMzt7Pekgf8bGej1liVGHMZwevFNyFvhNdw0d96lehddChkBbSywMbSdlLzW5cptGEWp3PuYCF0eyPVNyuqkn2nCd1qLUtD6HYIEOs5k-TjgoRuW8aFR30a-wFdescKWIfhNirOet5YnEXJq2GlM6Y1KouifmAlIQ3a_wVnlZDa8Ny6wxhw9B2387fPl5vsyway3S5bf4Tdxw1sry4vr_598ekDbC8uN19gd-Ven_3zA1xvPl9d74alPyvslMxRayxAy17lSGiiCU1dFmFay5wzgwWoXoDOFe_MHYFCaKzTYAHMDPxepbI1iWk7C_IYEV4a5sjYuxnMdf0W3N8PPY1eDv6cmR9pTGjYcIFAKJ0fEbgkQSkEv9LvK9Lve-0wOA6hIawV0zW4sCj6HBWUUkH-J2ZDK9S54gdUwFSlB_enD9xkpLtSvOI2vx8VDXAG-31yIN2Ww-6D2lW8Mg-mR6N41-D46_k0PlJjy40n91-n363CZixH3pDgh4GO5xNJx3OvwcPdED0e4NrrON7J4uqJl3fTehUKVPesxvESmenVNIvQM9kbG5keM7LluX6J_JCwJ0mInx1RlZ3HVHtIXuIm0JbigUbhkJq9gqs7ip9v0Ybv7fTBolvq31mjtOHsdZILF9PnQgqvQVZOBPJeqAfRhVFQLNL5RODdjg9lGnt513lcdL0Z3z126V-u-ye77o_9lvjZi677ou-8xiOmYjnmuVfk-mrqhR7suR90OwEJszi42w3YghIAWa7hp1fce6ZvuWzx30z7-wthsELlGts9r1xh4kbDN253aq4Y2dI4h13NNeQ15t8gZwL2CAXXtq0o4Iab2nWRsnOtINlQkvgkTbxSSE8xUaHnZk4D6WPQ6GPQ6NtAe-3e4m8EWvgYtPAZ0N69i_obwRbbIF2cwBYf6ffjveETOJwo-eW7MOx2aKCBC_h8ffFpB9owgy0Kc6TnY8EiEmbJiVzRsTmf2MceSXMixZoJIY1tIw-oDKw_ZtfZere5Hpe2Dfr1JrskNIlc13Us1KtyIS9vT9IgeCTcuLME2GPOeo0nR1eFRG3bJru1BlYaVNOB13gW9hCMUZowgxumBBcVEBomlFpvH_yDj96US9ubCwNcW16aF8ORVoElGw7RBjrnG-BBry23i0-7zQeHR2IB4EIbZMXcQhqfPYyI-Pzn9kveyxeJN89DMjgXoeGCxskACN7bGLRRVsXpEFFDpZBZyE3NBCyDNLlXQ48qZ3-8kk-qSP-qVn-5_PxWq9Pfz-pnf7yST6oY_t9b_R3189V2B1h7uf17MgnPilVYpGHKZrgKlmESRxaiWb1KkmWQsKW_KMqIlZj4SbGkJV2mEYsWabmY8ZXrWagf2r8omJc-i8Mg9alfLJZ-vCSRjy3jzdx2PHOpqhnXusdVQOMoCmcN22Oj3ccbSocGJ8ymI2Fr9vh8plbuRGLfV5pEfsO10ffcDDeN-_gzfFaIz2F9VBvuv5Ycf0N56QPMrFfN6m3nJIRunV623RtVO6zo_wIAAP__HgdqwA">