[Bug fortran/98017] [8/9/10/11 Regression] Suspected regression (relative to 7.5) using PACK in iolist since r8-4151-g6c6bde30706c29ff

[anlauf at gcc dot gnu.org via Gcc-bugs]

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

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |anlauf at gcc dot gnu.org

--- Comment #2 from anlauf at gcc dot gnu.org ---
It's much more interesting than a mere regression.

Reduced and modified testcase:

program p
  implicit none
  integer :: i
  character(*), parameter :: exprs(1) = ['abc()']
  print *, (pack(exprs,exprs(:)(:1)=='a'),i=1,1)
  print *, (pack(exprs,exprs(:)(:1)=='a')      )
end

7.4.1 gives:

 abc()
 a

8.4.1 and later give:

 a
 a

Expected output:

 abc()
 abc()