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
|
! RUN: %S/test_modfile.sh %s %t %flang_fc1
! Test 7.6 enum values
module m1
integer, parameter :: x(1) = [4]
enum, bind(C)
enumerator :: red, green
enumerator blue
enumerator yellow
enumerator :: purple = 2
enumerator :: brown
end enum
enum, bind(C)
enumerator :: oak, beech = -rank(x)*x(1), pine, poplar = brown
end enum
end
!Expect: m1.mod
!module m1
!integer(4),parameter::x(1_8:1_8)=[INTEGER(4)::4_4]
!integer(4),parameter::red=0_4
!integer(4),parameter::green=1_4
!integer(4),parameter::blue=2_4
!integer(4),parameter::yellow=3_4
!integer(4),parameter::purple=2_4
!integer(4),parameter::brown=3_4
!integer(4),parameter::oak=0_4
!integer(4),parameter::beech=-4_4
!intrinsic::rank
!integer(4),parameter::pine=-3_4
!integer(4),parameter::poplar=3_4
!end
|
GitWeb
