49 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -Werror2 3! WARNING: Default real literal in REAL(8) context might need a kind suffix, as its rounded value 1.00000001490116119384765625e-1_4 is inexact [-Wreal-constant-widening]4real(8), parameter :: warning1 = 0.15! WARNING: Default real literal in REAL(8) context might need a kind suffix, as its rounded value 1.10000002384185791015625_4 is inexact [-Wreal-constant-widening]6real(8) :: warning2 = 1.17real, parameter :: noWarning1 = 2.18real(8) :: noWarning2 = warning19real(8) :: noWarning3 = noWarning110real(8) :: noWarning4 = 3.125 ! exact11real(8) :: noWarning5 = 4.1d0 ! explicit 'd'12real(8) :: noWarning6 = 5.1_4 ! explicit suffix13real(8) :: noWarning7 = real(6.1, 8) ! explicit conversion14real(8) :: noWarning8 = real(7.1d0) ! explicit narrowing conversion15! WARNING: Default real literal in REAL(8) context might need a kind suffix, as its rounded value 8.1000003814697265625_4 is inexact [-Wreal-constant-widening]16real(8) :: warning3 = real(8.1) ! no-op conversion17! WARNING: Default real literal in COMPLEX(8) context might need a kind suffix, as its rounded value (9.1000003814697265625_4,1.01000003814697265625e1_4) is inexact [-Wreal-constant-widening]18complex(8), parameter :: warning4 = (9.1, 10.1)19! WARNING: Default real literal in COMPLEX(8) context might need a kind suffix, as its rounded value (1.11000003814697265625e1_4,1.21000003814697265625e1_4) is inexact [-Wreal-constant-widening]20complex(8) :: warning5 = (11.1, 12.1)21! WARNING: Default real literal in REAL(8) context might need a kind suffix, as its rounded value [REAL(4)::1.31000003814697265625e1_4] is inexact [-Wreal-constant-widening]22real(8) :: warning6(1) = [ 13.1 ]23real(8) warning724! WARNING: Default real literal in REAL(8) context might need a kind suffix, as its rounded value 1.41000003814697265625e1_4 is inexact [-Wreal-constant-widening]25data warning7/14.1/26type derived27! WARNING: Default real literal in REAL(8) context might need a kind suffix, as its rounded value 1.51000003814697265625e1_4 is inexact [-Wreal-constant-widening]28 real(8) :: warning8 = 15.129 real(8) :: noWarning9 = real(16.1, 8)30 real :: noWarning10 = 17.131end type32type(derived) dx33real noWarning1134! WARNING: Default real literal in REAL(8) context might need a kind suffix, as its rounded value 1.81000003814697265625e1_4 is inexact [-Wreal-constant-widening]35warning7 = 18.136! WARNING: Default real literal in REAL(8) context might need a kind suffix, as its rounded value 1.91000003814697265625e1_4 is inexact [-Wreal-constant-widening]37dx%warning8 = 19.138dx%noWarning10 = 20.139! WARNING: Default real literal in REAL(8) context might need a kind suffix, as its rounded value 2.11000003814697265625e1_4 is inexact [-Wreal-constant-widening]40dx = derived(21.1)41dx = derived(22.125)42noWarning11 = 23.143! WARNING: Default real literal in REAL(8) context might need a kind suffix, as its rounded value 2.41000003814697265625e1_4 is inexact [-Wreal-constant-widening]44print *, [real(8) :: 24.1]45! WARNING: Default real literal in REAL(8) context might need a kind suffix, as its rounded value 2.51000003814697265625e1_4 is inexact [-Wreal-constant-widening]46print *, [real(8) :: noWarning11, 25.1]47print *, [real(8) :: noWarning1] ! ok48end49