[Bug fortran/83823] New: [8 Regression] Character length issues with PACK()

[anlauf at gmx dot de]

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

            Bug ID: 83823
           Summary: [8 Regression] Character length issues with PACK()
           Product: gcc
           Version: 8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: anlauf at gmx dot de
  Target Milestone: ---

The following code gives wrong output with 8.0 svn rev.256556:

program gfcbug145
  implicit none
  type t_obstyp
    character(len=8) :: name
  end type t_obstyp
  type (t_obstyp) ,parameter :: obstyp(*)= &
     [ t_obstyp ('SYNOP' ), &
       t_obstyp ('DRIBU' ), &
       t_obstyp ('TEMP'  ), &
       t_obstyp ('RADAR' )  ]
  logical :: mask(size(obstyp)) = .true.

  print *,                        obstyp% name
  print *,                  pack (obstyp% name, mask)
  write(6,'(20(a8,:,"|"))')       obstyp% name
  write(6,'(20(a8,:,"|"))') pack (obstyp% name, mask)
end program gfcbug145


Bad output with 8.0:

 SYNOP   DRIBU   TEMP    RADAR   
 SYNOPDRIBUTEMPRRADAR
SYNOP   |DRIBU   |TEMP    |RADAR   
   SYNOP|   DRIBU|   TEMPR|   RADAR

Good output with 7.2:
 SYNOP   DRIBU   TEMP    RADAR   
 SYNOP   DRIBU   TEMP    RADAR   
SYNOP   |DRIBU   |TEMP    |RADAR   
SYNOP   |DRIBU   |TEMP    |RADAR   


Note also the bogus 'R' after "TEMP".