| ! { dg-do run } | |
| ! PR 32721 - missing conversion for kind=1 and kind=2 masks for pack | |
| program main | |
| real, dimension(2,2) :: a | |
| real, dimension(4) :: b | |
| call random_number(a) | |
| b = pack(a,logical(a>0,kind=1)) | |
| b = pack(a,logical(a>0,kind=2)) | |
| end program main |