error_stop_3.f90\gfortran.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/error_stop_3.f90

blob: 1ff74d8623a170623e0756cd611c211bde1292ea (plain)

! { dg-do compile }
! { dg-options "-std=f2018" }
!
! F2018 permits ERROR STOP in PURE procedures
!
pure subroutine foo()
  error stop "failed"
end