flang/test/Semantics/resolve76.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2
   3 ! 15.6.2.5(3)
   4
   5 module m1
   6   implicit logical(a-b)
   7   interface
   8     module subroutine sub1(a, b)
   9       real, intent(in) :: a
  10       real, intent(out) :: b
  11     end
  12     logical module function f()
  13     end
  14   end interface
  15 end
  16 submodule(m1) sm1
  17 contains
  18   module procedure sub1
  19     !ERROR: Left-hand side of assignment is not modifiable
  20     a = 1.0
  21     b = 2.0
  22     !ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches operand types REAL(4) and LOGICAL(4)
  23     b = .false.
  24   end
  25   module procedure f
  26     f = .true.
  27     !ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches operand types LOGICAL(4) and REAL(4)
  28     f = 1.0
  29   end
  30 end