30 lines · plain
1! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck --check-prefix=ERROR %s2 3function derfc_scaled8_error4(x)4 real(kind=8) :: derfc_scaled8_error45 real(kind=4) :: x6 derfc_scaled8_error4 = derfc_scaled(x);7! ERROR: Actual argument for 'x=' has bad type or kind 'REAL(4)'8end function derfc_scaled8_error49 10function derfc_scaled8_error16(x)11 real(kind=8) :: derfc_scaled8_error1612 real(kind=16) :: x13 derfc_scaled8_error16 = derfc_scaled(x);14! ERROR: Actual argument for 'x=' has bad type or kind 'REAL(16)'15end function derfc_scaled8_error1616 17function qerfc_scaled16_error4(x)18 real(kind=16) :: qerfc_scaled16_error419 real(kind=4) :: x20 qerfc_scaled16_error4 = qerfc_scaled(x);21! ERROR: Actual argument for 'x=' has bad type or kind 'REAL(4)'22end function qerfc_scaled16_error423 24function qerfc_scaled16_error8(x)25 real(kind=16) :: qerfc_scaled16_error826 real(kind=8) :: x27 qerfc_scaled16_error8 = qerfc_scaled(x);28! ERROR: Actual argument for 'x=' has bad type or kind 'REAL(8)'29end function qerfc_scaled16_error830