gcc/testsuite/gfortran.dg/pr96319.f90


1
2
3
4
5
6
7
8
9
10
11
12

! { dg-do compile }
! { dg-options "-Wconversion -Wconversion-extra" }

program test
  LOGICAL(1) :: a
  logical(4) :: t = .true.
  logical(4) :: b
  logical(1) :: f = .false.
  a = t
  b = f
end program test