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