1! { dg-do compile }
2! { dg-options "-fno-automatic -frecursive -Wno-overwrite-recursive" }
3!
4! Test case contributed by Mark Eggleston  <mark.eggleston@codethink.com>
5!
6
7program test
8  ! do nothing
9end program
10
11