1 2 3 4 5 6 7
! { dg-do compile } ! { dg-options "-O" } subroutine s logical(1) :: a = .true. logical(2) :: b a = transfer(b, a) end