1! { dg-do compile }
2! { dg-options "-finit-local-zero -fno-automatic" }
3!
4! PR fortran/53818
5!
6! Contributed by John Moyard
7!
8logical function testing(date1, date2) result(test)
9 integer date1, date2
10 test = ( (date1 < date2) .or. ( date1==date2 ))
11end function testing
12