blob: 7a6b424030cfa5a090a9b67d8184db8c4cfff9c8 (
plain)
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 to test parsing of ENUM in different program units
program main
implicit none
interface
subroutine sub1
end subroutine sub1
end interface
integer :: i = 55
enum , bind (c)
enumerator :: a , b=5
enumerator c, d
end enum
call sub
call sub1
i = fun()
contains
subroutine sub
enum, bind(c)
enumerator :: p = b, q = 10 + 50
enumerator r, s
end enum
end subroutine sub
function fun()
integer :: fun
enum, bind (c)
enumerator :: red, yellow = 23
enumerator :: blue
enumerator :: green
end enum
fun = 1
end function fun
end program main
subroutine sub1
implicit none
enum, bind(c)
enumerator x , y
enumerator :: z = 100
end enum
end subroutine sub1
|
