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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr46190.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-O2 -ftree-vectorize" }`
3
4			`TYPE :: spot_weld_type`
5			`CHARACTER(8) PLACE ! Keyword "NODE" or "POSITION"`
6			`END TYPE`
7			`TYPE (spot_weld_type), DIMENSION(:), ALLOCATABLE :: SPOT_WELD`
8			`INTEGER, PARAMETER :: LSRT = 12 ! Length of sorted-element-distance array`
9			`INTEGER &`
10			`& IETYP(LSRT) ! -/- Sort array for closest el's, 0/1=tri/qu`
11			`REAL(KIND(0D0)) &`
12			`& DSQRD(LSRT) ! -/- Sort array for closest el's, d**2`
13			`LOGICAL &`
14			`& COINCIDENT, &`
15			`& INSIDE_ELEMENT`
16			`IF (SPOT_WELD(NSW)%PLACE .EQ. 'POSITION') THEN`
17			`DO n = 1,LSRT`
18			`ENDDO`
19			`DO i = 1,NUMP3`
20			`DO WHILE (Distance_Squared .GT. DSQRD(n) .AND. n .LE. LSRT)`
21			`ENDDO`
22			`IF (n .LT. LSRT) THEN`
23			`DO k = LSRT-1,n,-1`
24			`DSQRD(k+1) = DSQRD(k)`
25			`IETYP(k+1) = IETYP(k)`
26			`ENDDO`
27			`ENDIF`
28			`DO n = 1,LSRT`
29			`IF (IETYP(n) .EQ. 0) THEN`
30			`INSIDE_ELEMENT = &`
31			`& Xi1EL(n) .GE. 0.0 .AND. Xi2EL(n) .GE. 0.0`
32			`IF (DSQRD(n) .LT. Dmin) THEN`
33			`ENDIF`
34			`ENDIF`
35			`ENDDO`
36			`ENDDO`
37			`IF (Icount .GT. 0) THEN`
38			`DO i = 1,Icount`
39			`CALL USER_MESSAGE &`
40			`& ( &`
41			`& )`
42			`ENDDO`
43			`CALL USER_MESSAGE &`
44			`& ( &`
45			`& )`
46			`ENDIF`
47			`IF &`
48			`& ( &`
49			`& .NOT.COINCIDENT &`
50			`& ) &`
51			`& THEN`
52			`IF (NP1 .GT. 0) THEN`
53			`IF (NP1 .GT. 0) THEN`
54			`ENDIF`
55			`ENDIF`
56			`ENDIF`
57			`IF (.NOT.COINCIDENT) THEN`
58			`DO i = 1,3`
59			`IF (NP(i) .GT. 0) THEN`
60			`ENDIF`
61			`ENDDO`
62			`ENDIF`
63			`ENDIF`
64			`END`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr46190.f90] - Blame information for rev 801