mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-10 08:22:11 +01:00
33 lines
878 B
Fortran
33 lines
878 B
Fortran
! @@name: error.1
|
|
! @@type: F-free
|
|
! @@operation: link
|
|
! @@expect: success
|
|
! @@version: omp_5.2
|
|
program main
|
|
use omp_lib
|
|
|
|
!$omp metadirective &
|
|
!$omp& when( implementation={vendor(gnu)}: nothing ) &
|
|
!$omp& otherwise( error at(compilation) severity(fatal) &
|
|
!$omp& message( "GNU compiler required." ) )
|
|
|
|
|
|
if( omp_get_num_procs() < 3 ) then
|
|
!$omp error at(execution) severity(fatal) &
|
|
!$omp& message("3 or more procs required.")
|
|
endif
|
|
|
|
!$omp parallel master
|
|
|
|
!! Give notice about master deprecation at compile time and run time.
|
|
!$omp error at(compilation) severity(warning) &
|
|
!$omp& message("Notice: master is deprecated.")
|
|
!$omp error at(execution) severity(warning) &
|
|
!$omp& message("Notice: masked to be used in next release.")
|
|
|
|
print*," Hello from thread number 0."
|
|
|
|
!$omp end parallel master
|
|
|
|
end program
|