Assure Example

• Invalid data bug:

01: do 10 i=1,20

02: 10 A(i) = 0.0

03: c$omp parallel do private(B, i, j)

04: c$omp&shared(A, a1, a2, b1, b2,m)

05: do i=1,m

06: do 20 j=a1(i),a2(i)

07: 20 A(j) = (Expression)

08: do 30 j=b1(i),b2(i)

09: 30 B(j) = (Func of A(j))

10: enddo

11: do 40 i=1,20

12: 40 print *, B(i)

• Assure Report:

Errors in ROUTINE, ITER/1 (iter.f):

-----------------------------------------------

Error: ITER/9 (iter.f): LOCAL symbol 'B' referenced outside parallel construct as 'B' in ITER/12

Storage conflicts in PARALLEL DO, ITER/16 (iter.f):

Conflict Source Source - Sink

Type Symbol Routine/Line

-------------------------------------------------------

Write -> Read A ITER/7 - 9

Previous slide

Next slide

Back to first slide

View graphic version