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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [vrp_1.f90] - Blame information for rev 859

Go to most recent revision | Details | Compare with Previous | View Log


      SUBROUTINE STONUM(STRVAR,LENGTH)
      CHARACTER STRVAR*(*) , CHK
      LOGICAL MEND , NMARK , MMARK , EMARK
      NMARK = .FALSE.
      MMARK = .FALSE.
      DO WHILE ( .NOT.MEND )
            IF ( CHK.GE.'0' .AND. CHK.LE.'9' ) THEN
               IF ( CHK.EQ.'E' ) THEN
                  NMARK = .TRUE.
               ELSEIF ( .NOT.MMARK .AND. CHK.EQ.'*' .AND. .NOT.NMARK )  &
     &                  THEN
                  MMARK = .TRUE.
               ENDIF
            ENDIF
      ENDDO
      END
 

Line No.	Rev	Author	Line
1	303	jeremybenn	`SUBROUTINE STONUM(STRVAR,LENGTH)`
2			`CHARACTER STRVAR() , CHK`
3			`LOGICAL MEND , NMARK , MMARK , EMARK`
4			`NMARK = .FALSE.`
5			`MMARK = .FALSE.`
6			`DO WHILE ( .NOT.MEND )`
7			`IF ( CHK.GE.'0' .AND. CHK.LE.'9' ) THEN`
8			`IF ( CHK.EQ.'E' ) THEN`
9			`NMARK = .TRUE.`
10			`ELSEIF ( .NOT.MMARK .AND. CHK.EQ.'*' .AND. .NOT.NMARK ) &`
11			`& THEN`
12			`MMARK = .TRUE.`
13			`ENDIF`
14			`ENDIF`
15			`ENDDO`
16			`END`
17

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [vrp_1.f90] - Blame information for rev 859