Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/gcc/testsuite/gfortran.dg/pr95708.f90

7 lines
109 B
Fortran

! { dg-do compile }
!
program test
procedure(team_num) :: g ! { dg-error "must be explicit" }
end program