RISC-V: Refactor Dynamic LMUL codes
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr66575.f90
blob7a0a604ed4ef80ac3cc7360e46bf2d22122f38fc
1 ! { dg-do compile }
2 ! Bug 66575 - Endless compilation on missing end interface
3 program p
4 procedure(g) :: g ! { dg-error "may not be used as its own interface" }
5 procedure(g) ! { dg-error "Syntax error in PROCEDURE statement" }
6 end