41 lines · plain
1! RUN: not %flang_fc1 %s 2>%t.stderr2! RUN: FileCheck %s --input-file=%t.stderr --check-prefixes=PORTABILITY,ERROR,WARNING%if system-aix %{,AIX_WARNING%}3! C716 If both kind-param and exponent-letter appear, exponent-letter4! shall be E. (As an extension we also allow an exponent-letter which matches5! the kind-param)6! C717 The value of kind-param shall specify an approximation method that7! exists on the processor.8 9subroutine s(var)10 real :: realvar1 = 4.0E6_411 real :: realvar2 = 4.0D612 real :: realvar3 = 4.0Q613 !PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard14 real :: realvar4 = 4.0D6_815 !WARNING: Explicit kind parameter on real constant disagrees with exponent letter 'q'16 !AIX_WARNING: underflow on REAL(10) to REAL(4) conversion17 real :: realvar5 = 4.0Q6_1018 !PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard19 real :: realvar6 = 4.0Q6_1620 real :: realvar7 = 4.0E6_821 !AIX_WARNING: underflow on REAL(10) to REAL(4) conversion22 real :: realvar8 = 4.0E6_1023 real :: realvar9 = 4.0E6_1624 !ERROR: Unsupported REAL(KIND=32)25 real :: realvar10 = 4.0E6_3226 27 double precision :: doublevar1 = 4.0E6_428 double precision :: doublevar2 = 4.0D629 double precision :: doublevar3 = 4.0Q630 !PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard31 double precision :: doublevar4 = 4.0D6_832 !PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard33 double precision :: doublevar5 = 4.0Q6_1634 double precision :: doublevar6 = 4.0E6_835 !AIX_WARNING: underflow on REAL(10) to REAL(8) conversion36 double precision :: doublevar7 = 4.0E6_1037 double precision :: doublevar8 = 4.0E6_1638 !ERROR: Unsupported REAL(KIND=32)39 double precision :: doublevar9 = 4.0E6_3240end subroutine s41