blob: b32c034e65050c930d3fe2c7159bc332369a94ea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! RUN: %flang -fsyntax-only < %s
! RUN: %flang -fsyntax-only -ast-print %s 2>&1 | %file_check %s
PROGRAM imptest
!Unless specified otherwise,
!all variables starting with letters I, J, K, L, M and N are default INTEGERs,
!and all others are default REAL
I = 22 ! CHECK: i = 22
J = I ! CHECK: j = i
k = J ! CHECK: k = j
M = 0.0 ! CHECK: m = int(0)
n = -1 ! CHECK: n = (-1)
R = 33.25 ! CHECK: r = 33.25
Z = 1 ! CHECK: z = real(1)
a = -11.23
END PROGRAM imptest
|