OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr46190.f90] - Rev 694

Compare with Previous | Blame | View Log

! { 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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.