gcc/testsuite/gfortran.dg/whole_file_2.f90

   1 ! { dg-do compile }
   2 ! { dg-options "" }
   3 ! Tests the fix for PR26227 in which the interface mismatches
   4 ! below were not detected.
   5 !
   6 ! Contributed by Andrew Pinski <pinskia@gcc.gnu.org>
   7 !
   8 function a(b)
   9 REAL ::b
  10 b = 2.0
  11 a = 1.0
  12 end function
  13
  14 program gg
  15 real :: h
  16 character (5) :: chr = 'hello'
  17 h = a(); ! { dg-error "Missing actual argument" }
  18 call test ([chr]) ! { dg-error "Rank mismatch" }
  19 end program gg
  20
  21 subroutine test (a)
  22   character (5) :: a
  23   if (a .ne. 'hello') STOP 1
  24 end subroutine test
  25