gcc/testsuite/gfortran.dg/defined_operators_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=legacy" }
   3 ! Tests the fix for PR27122, in which the requirements of 12.3.2.1.1
   4 ! for defined operators were not enforced.
   5 !
   6 ! Based on PR test by Thomas Koenig  <tkoenig@gcc.gnu.org>
   7 !
   8 module mymod
   9   interface operator (.foo.)
  10      module procedure foo_0
  11      module procedure foo_1
  12      module procedure foo_2
  13      module procedure foo_3
  14      module procedure foo_1_OK  ! { dg-error "Ambiguous interfaces" }
  15      module procedure foo_2_OK
  16      function foo_chr (chr) ! { dg-error "cannot be assumed character length" }
  17        character(*) :: foo_chr
  18        character(*), intent(in) :: chr
  19      end function foo_chr
  20   end interface
  21
  22   !
  23   ! PR fortran/33117
  24   ! PR fortran/46478
  25   ! Mixing FUNCTIONs and SUBROUTINEs in an INTERFACE hides the
  26   ! errors that should be tested here. Hence split out subroutine
  27   ! to test separately.
  28   !
  29   interface operator (.bar.)
  30      subroutine bad_foo (chr) ! { dg-error "must be a FUNCTION" }
  31        character(*), intent(in) :: chr
  32      end subroutine bad_foo
  33   end interface
  34
  35 contains
  36   function foo_0 () ! { dg-error "must have at least one argument" }
  37     integer :: foo_1
  38     foo_0 = 1
  39   end function foo_0
  40   function foo_1 (a) ! { dg-error "must be INTENT" }
  41     integer :: foo_1
  42     integer :: a
  43     foo_1 = 1
  44   end function foo_1
  45   function foo_1_OK (a)
  46     integer :: foo_1_OK
  47     integer, intent (in) :: a
  48     foo_1_OK = 1
  49   end function foo_1_OK
  50   function foo_2 (a, b) ! { dg-error "cannot be optional" }
  51     integer :: foo_2
  52     integer, intent(in) :: a
  53     integer, intent(in), optional :: b
  54     foo_2 = 2 * a + b
  55   end function foo_2
  56   function foo_2_OK (a, b)
  57     real :: foo_2_OK
  58     real, intent(in) :: a
  59     real, intent(in) :: b
  60     foo_2_OK = 2.0 * a + b
  61   end function foo_2_OK
  62   function foo_3 (a, b, c) ! { dg-error "must have, at most, two arguments" }
  63     integer :: foo_3
  64     integer, intent(in) :: a, b, c
  65     foo_3 = a + 3 * b - c
  66   end function foo_3
  67 end module mymod