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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [character_select_1.f90] - Blame information for rev 338

Details | Compare with Previous | View Log


CHARACTER(LEN=6) :: C = "STEVEN"
 
SELECT CASE (C)
   CASE ("AAA":"EEE")
      CALL abort
   CASE ("R":"T")
      CONTINUE
   CASE DEFAULT
      CALL abort
END SELECT
END
 

Line No.	Rev	Author	Line
1	303	jeremybenn	`CHARACTER(LEN=6) :: C = "STEVEN"`
2
3			`SELECT CASE (C)`
4			`CASE ("AAA":"EEE")`
5			`CALL abort`
6			`CASE ("R":"T")`
7			`CONTINUE`
8			`CASE DEFAULT`
9			`CALL abort`
10			`END SELECT`
11			`END`
12

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [character_select_1.f90] - Blame information for rev 338