Retro68/gcc/libgomp/testsuite/libgomp.fortran/openmp_version-2.f90

10 lines
125 B
Fortran
Raw Normal View History

2014-09-21 17:33:12 +00:00
! { dg-do run }
program main
use omp_lib
implicit none
if (openmp_version .ne. 201307) call abort;
end program main