| ! RUN: %python %S/test_symbols.py %s %flang_fc1 -fopenmp |
| ! Test that does not catch non constant integer expressions like xx - xx. |
| !DEF: /ompdoschedule MainProgram |
| !DEF: /ompdoschedule/a ObjectEntity REAL(4) |
| !DEF: /ompdoschedule/y ObjectEntity REAL(4) |
| !DEF: /ompdoschedule/z ObjectEntity REAL(4) |
| real a(100),y(100),z(100) |
| !DEF: /ompdoschedule/b ObjectEntity INTEGER(4) |
| !DEF: /ompdoschedule/i ObjectEntity INTEGER(4) |
| !DEF: /ompdoschedule/n ObjectEntity INTEGER(4) |
| !$omp do schedule(static,b-b) |
| !DEF: /ompdoschedule/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) |
| !REF: /ompdoschedule/Block1/i |
| end program ompdoschedule |