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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [logical_select_1.f90] - Blame information for rev 695

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 695 jeremybenn 
LOGICAL :: L = .FALSE.
2 
 
3 
SELECT CASE (L)
4 
   CASE (.TRUE.)
5 
      CALL abort
6 
   CASE (.FALSE.)
7 
      CONTINUE
8 
   CASE DEFAULT
9 
      CALL abort
10 
END SELECT
11 
 
12 
SELECT CASE (L)
13 
   CASE (.TRUE., .FALSE.)
14 
      CONTINUE
15 
   CASE DEFAULT
16 
      CALL abort
17 
END SELECT
18 
 
19 
SELECT CASE (L)
20 
   CASE (.FALSE.)
21 
      CONTINUE
22 
   CASE DEFAULT
23 
      CALL abort
24 
END SELECT
25 
 
26 
SELECT CASE (L)
27 
   CASE (.NOT. .TRUE.)
28 
      CONTINUE
29 
   CASE DEFAULT
30 
      CALL abort
31 
END SELECT
32 
 
33 
SELECT CASE (.NOT. L)
34 
   CASE (.TRUE.)
35 
      CONTINUE
36 
   CASE DEFAULT
37 
      CALL abort
38 
END SELECT
39 
 
40 
SELECT CASE (Truth_or_Dare() .OR. L)
41 
   CASE (.TRUE.)
42 
      CONTINUE
43 
   CASE DEFAULT
44 
      CALL abort
45 
END SELECT
46 
 
47 
CONTAINS
48 
 
49 
   FUNCTION Truth_or_Dare ()
50 
      LOGICAL Truth_or_Dare
51 
      Truth_or_Dare = .TRUE.
52 
   END FUNCTION
53 
 
54 
END
55 
 

powered by: WebSVN 2.1.0

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