File: case.f

package info (click to toggle)
ftnchek 3.3.1-7
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 8,684 kB
  • sloc: ansic: 21,908; fortran: 5,748; yacc: 4,071; sh: 3,035; makefile: 895; lisp: 322; f90: 118; perl: 76
file content (46 lines) | stat: -rw-r--r-- 857 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 

      program testcase
      integer ivar1
      character*8 cvar1
      character*1 cvar2
      logical lvar1
      real rvar1
      ivar1 = 3
      lvar1 = .true.

      select case (ivar1)
          cvar1 = 'no path!'
      case (:-1)
          cvar1 = 'path'
      case (10/5 - 2)
      case (1)
      case (2:3, 5:7, 9)
      case (10:)
      case default
          cvar2 = 'd'
      end select

      select case (lvar1)
      case (.false.)
      case (.true.:)
      case (:.false.)
      case (1.eq.0)
      end select

      cvar1 = 'hamster'
      select case (cvar1)
      case (:'cat')
      case ('dog':'fer' // 'ret')
      case ('gerbil')
      case ('horse':)
      case default
      end select

      select case (rvar1)
      case (-1.0)
      case (2:5.0)
      case (ivar1)
      case (:.false.)
      end select
      stop
      end