Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/libgomp/testsuite/libgomp.fortran/pr88463-2.f90
2023-03-06 14:48:14 +01:00

9 lines
224 B
Fortran

! PR fortran/88463
! { dg-do link }
! { dg-options "-fopenmp" }
! { dg-additional-sources pr88463-1.f90 }
module pr88463_2
integer, parameter :: a = 1
real, parameter :: b(4) = (/ 2., 3., 4., 5. /)
end module pr88463_2