1! { dg-do compile }
2! { dg-options "-std=f95" }
3! Test for PROCEDURE statements with the -std=f95 flag.
4! Contributed by Janus Weil <jaydub66@gmail.com>
5
6program p
7
8procedure():: proc  ! { dg-error "Fortran 2003: PROCEDURE statement" }
9
10end program
11