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