| ! { dg-do compile } | |
| ! { dg-options "-O3 -fsplit-loops" } | |
| SUBROUTINE SSYMM(C) | |
| REAL C(LDC,*) | |
| LOGICAL LSAME | |
| LOGICAL UPPER | |
| IF (LSAME) THEN | |
| DO 170 J = 1,N | |
| DO 140 K = 1,J | |
| IF (UPPER) THEN | |
| END IF | |
| 140 CONTINUE | |
| DO 160 K = J + 1,N | |
| C(I,J) = B(K) | |
| 160 CONTINUE | |
| 170 CONTINUE | |
| END IF | |
| END |