gcc/testsuite/gfortran.dg/logical_3.f90

   1 ! { dg-do compile }
   2 ! This checks the fix for PR30406.
   3 !
   4 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
   5 !===============================================================
   6
   7 function f()
   8   logical(8) :: f
   9   f = .false._8
  10 end function f