gcc/testsuite/gfortran.dg/pr46190.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64

! { dg-do compile }
! { dg-options "-O2 -ftree-vectorize" }

      TYPE :: spot_weld_type                                            
        CHARACTER(8)     PLACE      ! Keyword "NODE" or "POSITION"         
      END TYPE                                                          
      TYPE (spot_weld_type),  DIMENSION(:), ALLOCATABLE :: SPOT_WELD    
      INTEGER, PARAMETER :: LSRT = 12 ! Length of sorted-element-distance array
      INTEGER                    &
     &          IETYP(LSRT)        ! -/- Sort array for closest el's, 0/1=tri/qu
      REAL(KIND(0D0))                                                          &
     &          DSQRD(LSRT)        ! -/- Sort array for closest el's, d**2
      LOGICAL                                                                  &
     &          COINCIDENT,                                                    &
     &          INSIDE_ELEMENT
      IF (SPOT_WELD(NSW)%PLACE .EQ. 'POSITION') THEN
        DO n = 1,LSRT
        ENDDO
        DO i = 1,NUMP3
          DO WHILE (Distance_Squared .GT. DSQRD(n) .AND. n .LE. LSRT)
          ENDDO
          IF (n .LT. LSRT) THEN
            DO k = LSRT-1,n,-1
              DSQRD(k+1) = DSQRD(k)
              IETYP(k+1) = IETYP(k)
            ENDDO
          ENDIF
          DO n = 1,LSRT
            IF (IETYP(n) .EQ. 0) THEN
              INSIDE_ELEMENT =                                                 &
     &          Xi1EL(n) .GE. 0.0 .AND. Xi2EL(n) .GE. 0.0
              IF (DSQRD(n) .LT. Dmin) THEN
              ENDIF
            ENDIF
          ENDDO
        ENDDO
        IF (Icount .GT. 0) THEN
          DO i = 1,Icount
            CALL USER_MESSAGE                                                  &
     &          (                                                              &
     &          )
          ENDDO
          CALL USER_MESSAGE                                                    &
     &          (                                                              &
     &          )
        ENDIF
        IF                                                                     &
     &          (                                                              &
     &          .NOT.COINCIDENT                                                &
     &          )                                                              &
     &    THEN
          IF (NP1 .GT. 0) THEN
            IF (NP1 .GT. 0) THEN
            ENDIF
          ENDIF
        ENDIF
        IF (.NOT.COINCIDENT) THEN
          DO i = 1,3
            IF (NP(i) .GT. 0) THEN
            ENDIF
          ENDDO
        ENDIF
      ENDIF
      END