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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Execution error of a large number as a repeat specification
        </td>
    </tr>

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

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

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

<pre>
    This is an issue from Fujitsu testsuite.

The execution of a program compiled by flang-new terminates with a fatal error.
In the program, a large number (the maximum number of `INTEGER(4)`) is used as a repeat specification in a format specification.
Flang doesn't violate the Fortran standard but some other compilers support this number as a repeat specification.

The following are the test program and the execution result of Flang-new, gfortran and ifort.

```fortran
! test.f90
integer ::n_part(10)=1
write(1,'(32767(tr1,i0))') n_part
write(1,'(32768(tr1,i0))') n_part
write(1,'(1000000(tr1,i0))') n_part
write(1,'(2147483647(tr1,i0))') n_part

print *,'ok'
end
```
```console
$ flang-new -v test.f90 
flang-new version 18.0.0git (https://github.com/llvm/llvm-project.git 2759e47067ea286f6302adcfe93b653cfaf6f2eb)
Target: aarch64-unknown-linux-gnu
Thread model: posix
InstalledDir: /path/to/install/bin
Found candidate GCC installation: /opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12
Selected GCC installation: /opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12
Candidate multilib: .;@m64
Selected multilib: .;@m64
 "/path/to/install/bin/flang-new" -fc1 -triple aarch64-unknown-linux-gnu -emit-obj -fcolor-diagnostics -mrelocation-model pic -pic-level 2 -pic-is-pie -target-cpu generic -target-feature +v8a -target-feature +fp-armv8 -target-feature +neon -mframe-pointer=non-leaf -o /tmp/test-e0a21e.o -x f95-cpp-input test.f90
 "/opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12/../../../../bin/ld" -EL --hash-style=gnu --eh-frame-hdr -m aarch64linux -pie -dynamic-linker /lib/ld-linux-aarch64.so.1 -o a.out /lib/../lib64/Scrt1.o /lib/../lib64/crti.o /opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12/crtbeginS.o -L/path/to/install/lib/clang/18/lib/aarch64-unknown-linux-gnu -L/opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12 -L/opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12/../../../../lib64 -L/lib/../lib64 -L/usr/lib/../lib64 -L/lib -L/usr/lib /tmp/test-e0a21e.o -L/path/to/install/lib --whole-archive -lFortran_main --no-whole-archive -lFortranRuntime -lFortranDecimal -lm -lgcc --as-needed -lgcc_s --no-as-needed -lc -lgcc --as-needed -lgcc_s --no-as-needed /opt/rh/gcc-toolset-12/root/usr/lib/gcc/aarch64-redhat-linux/12/crtendS.o /lib/../lib64/crtn.o
$ ./a.out 

fatal Fortran runtime error(/path/to/test.f90:6): FORMAT integer field out of range
Aborted (core dumped)
```
```console
$ gfortran -v test.f90 
Driving: gfortran -v test.f90 -l gfortran -l m -shared-libgcc
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/usr/libexec/gcc/aarch64-redhat-linux/8/lto-wrapper
Target: aarch64-redhat-linux
Configured with: ../configure --enable-bootstrap --enable-languages=c,c++,fortran,lto --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --with-bugurl=https://bugs.rockylinux.org/ --enable-shared --enable-threads=posix --enable-checking=release --enable-multilib --with-system-zlib --enable-__cxa_atexit --disable-libunwind-exceptions --enable-gnu-unique-object --enable-linker-build-id --with-gcc-major-version-only --with-linker-hash-style=gnu --enable-plugin --enable-initfini-array --with-isl --disable-libmpx --enable-gnu-indirect-function --build=aarch64-redhat-linux
Thread model: posix
gcc version 8.5.0 20210514 (Red Hat 8.5.0-18) (GCC)
 :
$ ./a.out 
 ok
```
```console
$ ifort -v test.f90
ifort version 2021.10.0 
:
$ ./a.out 
 ok
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJy8WN1u5CoSfhpyU8JyY_ffRS56uuOzR8ruHGWy2ssI47LNBIMXcH726Vdgu7uTmc7OHM3ZqOXIVUVR9RUUH-bOyUYjXpPlJ7I8XPHBt8Zevw4uWy9SWn-9Kk31en3fSgfSAdcgnRsQams6KIav0rsBPDrvBukxIemBpLvxed8i4AuKwUujwdTAobemsbwDYbpeKqygfIVacd1Qjc_g0XZSc48OnqVvgUPNPVeA1ho7uf5dg29xdkTYHjgobhsEPXQlWiBsEww6_iK7oZulpgaySn__x_3Nbzd3hG1ywrZklRK2DVkNDivgDjhY7JF7cD0KWUvBY-hSh1CM7d5rppiKkAFUBp0mbO3hSRrFPcZAC2O95Rqc57ritoJy8OBMh2B8i3ZGwjpwQ98b68EHqKewL8b0DdC1Uco8S90At-PMoShHwLmuovBUD4tuUD4AU8wFCGg29RRwGCHDy5upAmbxN5lNUraI0yX1Nh0lUntsQjWyHcl2-qHn1hO2WQTESXZYjFbPVnoMYsL2hK0J22RsvQr_vQ0yGc3Dbx0qNbn5YOjmzw1dpPHvzw1mi3ydb7JV_kNxj8_eSu2BsN3oxTwGy6hBXb1D-t2rMNoZhTPw-dn-oU_HKsCoP-me0LpQ9sUmSZO0kWH2Tet970KJWEFY0UjfDmUiTEdYodTT_I_21nxF4ZMwiq2XW8zX6WqNnG1W9SpLGa9EjdusXC0zUfN6VTMsQ_bj4gyb05NsB5xb0a5yOuhHbZ41VVIPL7TRw7yKLfIKOlOhCua9cfJl3vTOc6WwOkgbVIQVPfctYYU3hBVyVBNWlHJakYUZdAWC60pWYSv-tt_DZBb3z-TF9J6wwgZPjRDUG6McerpgQWpMUA7OBhxkOdoQVsx5WKxa7sc0CCsWbJz6CyoUHqv_55z7Y6LdoLwMI7MdJCT7RPK0W-XvIvvICAhjH-LLivrUMBjQWiyAeit7hZdLDBQ76akpv4YBRhlLK8kbbZyXwgHtLCoztjYaVwD0UgDtpaAKn1ABG1-ko71EoD6uKir6ARrUaIPxJKuR-8EiEPbpacO_J657ym33tPmeTqPRQLva8g5pb0IfsyQ7aKOpQl4DNaGGvuvDE52nmHK2wMQAfYF6u6Si76nU_eDfdcQJ119cfVYkybePsUyqivW5uQVKW-5a6vyrQpIdYj0otnTMsq0s0G6uXXQOI8rVq-ZdKIHUj_FonaJS1VTZaUziTLII0PDEDP5kF4NRslzlhBVfhPWLxFzQCuvlqPzlCAnrS2yk_hKKdHtxbY_uRFjbYeTmKPpgUd_-8nj_Cp8XVkmEfpzvfUFG6fkU3xnxzujivvgQcqD0uTUKaQhePiFQNVGmh45LDZRqc8nibtBedmeCAwrZcQVUdUBVIwRQyh3ViBVWo-TBjS7PxeLHjf-i9Ym6-vLR1tCJOR34QTdttDNKMVLlmW7aCZpInQnbvCvBsTVlu1VkZDsoPt_9fXcPM3GrJaoKwiSmBst1MzGOXWmsj0BshLEI1dD1WB1P-x9mLUee-S1pOVj5JHUTgvquFVVncgUdUNdyi6EnlQHt6OSfLnDhcpDKU6kjeXYTk91_vr292d8__Lbfh2b4hsnOutv7zw__utv98cfNHckO5yUNDPp_lTX2Dm_os-V9j_YSEXozapze6Fo2g8Uq3oDi-RzKLWZ56NualwppaYx33vL-JAqta-ANOpIdBGF7Qdin-NvPObK98gYo7S3W8uWYGVDaBQZhz3ONoBJWdAFmKnVtLhgEVdjG0re0HJrBKpId3lLLcmhcYo14fI3JJsaGHnuKfCzg6d1HLhjyiCzwpBAtise4OA4WFXJ3hsjMauZY3Kvz2NH_jKLJ6OFBvPAH7vFFeqC0km6ETpaDfpa6ovgisA88xJ0GNXqgg5b_HjAwGBT-DPN4NNKw0Coqq3nu0Bk6_tVYOhFvarR6nbXToO8dyqPXXg1NbH7Tu9TS11JLyq3lRzfSqbcpdP3L26BlKCoKT-tBi3jto2OoJDtcXoUfMPHQJuerxCZZJimwlC3S5SIPHeEOK_gb96OGhiN0G8Rho80NIt4IL7YyMI8_2UfiFfW8PUz3zyieIw0xJos0mTvMT8ZwVV1n1Tbb8iu8XqzTVbrO0_Xyqr2u8nTFN2vcbOuS5cjFYoHrHLHcZCxf56srec1SlqcLlqdLtl4uk826ZnWZ4jJd5dtsuyV5ih2XKgkXrbAtruLnlev1li2XV4qXqFz8NMNYZN0k202tPdDJ5eHKXscrWthgJE-VdN6dfHnpVfyyE6_4ZHmAm-P9P54M41eZN99PLn5yuBqsuv65G2NoDiEdR1gRM_pvAAAA__9gN8sx">