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

7 lines
201 B
Fortran

! { dg-do compile }
! { dg-options "-fmax-errors=1" }
! PR fortran/85780
subroutine s(*) bind(c) ! { dg-error "Alternate return dummy argument" }
end
! { dg-prune-output "compilation terminated" }