3 ! Test fix for wrong length in parameters. Original test cases
4 ! by mhp77 (a) gmx.at and Harald Anlauf.
9 character(len
=8) :: name
11 type (t_obstyp
) ,parameter :: obstyp(*)= &
12 [ t_obstyp ('SYNOP' ), &
13 t_obstyp ('DRIBU' ), &
16 logical :: mask(size(obstyp
)) = .true
.
17 character(len
=100) :: line
18 type (t_obstyp
), parameter :: x
= t_obstyp('asdf')
20 write(line
,'(20(a8,:,"|"))') pack (obstyp
% name
, mask
)
21 if (line
/= 'SYNOP |DRIBU |TEMP |RADAR') STOP 1
22 write (line
,'("|",A,"|")') x
23 if (line
/= "|asdf |") STOP 2