mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-04 16:50:57 +00:00
35 lines
1.1 KiB
Fortran
35 lines
1.1 KiB
Fortran
! { dg-do compile }
|
|
! { dg-options "-w" }
|
|
!
|
|
! "-w" added as libgomp/testsuite seemingly cannot parse with
|
|
! dg-warning Fortran's output. Fortran warns for "call sub1(a)"
|
|
! that there is a "Rank mismatch in argument 'x'".
|
|
|
|
SUBROUTINE SUB1(X)
|
|
DIMENSION X(10)
|
|
! This use of X does not conform to the
|
|
! specification. It would be legal Fortran 90,
|
|
! but the OpenMP private directive allows the
|
|
! compiler to break the sequence association that
|
|
! A had with the rest of the common block.
|
|
FORALL (I = 1:10) X(I) = I
|
|
END SUBROUTINE SUB1
|
|
PROGRAM A28_5
|
|
COMMON /BLOCK5/ A
|
|
DIMENSION B(10)
|
|
EQUIVALENCE (A,B(1))
|
|
! the common block has to be at least 10 words
|
|
A=0
|
|
!$OMP PARALLEL PRIVATE(/BLOCK5/)
|
|
! Without the private clause,
|
|
! we would be passing a member of a sequence
|
|
! that is at least ten elements long.
|
|
! With the private clause, A may no longer be
|
|
! sequence-associated.
|
|
CALL SUB1(A)
|
|
!$OMP MASTER
|
|
PRINT *, A
|
|
!$OMP END MASTER
|
|
!$OMP END PARALLEL
|
|
END PROGRAM A28_5
|