[Bug fortran/61628] A program that reads from a file with stream access and uses pack() suddenly stops

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61628

--- Comment #14 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Here is a reduced test case.  It has nothing to do with pack or allocate.

program readprint
    implicit none

    integer, dimension(319389) :: matrix
    write(*,*) 'begin'
    write(*,*) matrix
    write(*,*) 'done'
end program readprint

This program writes 'begin' and then returns to the command prompt.

It will write out matrix up to 5227 elements.

I am wondering if the mingw build is broken.