flang/test/Semantics/resolve76.f90

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