| ! { dg-do compile } | |
| ! { dg-additional-options "-O1" } | |
| subroutine ni (ps) | |
| type vector | |
| real x, y | |
| end type | |
| type quad_inductor | |
| type (vector) v1, v2 | |
| end type | |
| type (quad_inductor), dimension(inout) :: ps | |
| integer :: dl, nk = 1.0 | |
| fo = 1.0 | |
| if (f == 1) then | |
| nk = 0.0 | |
| fo = 0.0 | |
| end if | |
| ot = nk * 0.5 | |
| gb = -fo * 0.5 | |
| wu = fo * 0.5 | |
| up = nk * 0.1 | |
| xe = up * 0.1 | |
| do lx = 0, 7 | |
| ps%v2%y = -wu | |
| ps(dl)%v1%x = xe + 1.0 | |
| ps(dl)%v1%y = wu - tn | |
| end do | |
| do lx = 0, 7 | |
| ps(dl)%v1%x = 0.1 - ot | |
| ps(dl)%v1%y = 0.1 - wu | |
| end do | |
| end |