1! { dg-do compile }
2! { dg-options "-O2" }
3program lh
4  call za(0)
5  call za(0)
6contains
7  subroutine za(wl)
8    integer wl
9    wl = 1
10  end subroutine za
11end program lh
12