32 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12 3! 15.6.2.5(3)4 5module m16 implicit logical(a-b)7 interface8 module subroutine sub1(a, b)9 real, intent(in) :: a10 real, intent(out) :: b11 end12 logical module function f()13 end14 end interface15end16submodule(m1) sm117contains18 module procedure sub119 !ERROR: Left-hand side of assignment is not definable20 !BECAUSE: 'a' is an INTENT(IN) dummy argument21 a = 1.022 b = 2.023 !ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches operand types REAL(4) and LOGICAL(4)24 b = .false.25 end26 module procedure f27 f = .true.28 !ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches operand types LOGICAL(4) and REAL(4)29 f = 1.030 end31end32