| ! { dg-do compile } | |
| ! { dg-options "-O2" } | |
| ! { dg-additional-options "-mavx" { target avx } } | |
| !GCC$ builtin (powf) attributes simd (notinbranch) if('x86_64') | |
| PARAMETER (NX=3, G=1.4) | |
| DIMENSION T(NX,NX), P(NX,NX) | |
| INTEGER Apx | |
| COMMON P, T | |
| DO i = 1, 3 | |
| IF (i < 0.0 ) THEN | |
| P(Apx,i) = i**G | |
| T(Apx,i) = i**G | |
| ELSE | |
| P(Apx,i) = 0 | |
| T(Apx,i) = 0 | |
| ENDIF | |
| ENDDO | |
| END |