gcc/testsuite/gfortran.dg/volatile14.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 46459: ICE (segfault): Invalid read in compare_actual_formal [error recovery]
   4 !
   5 ! Contributed by Harald Anlauf <anlauf@gmx.de>
   6
   7   call sub (1)
   8 contains
   9   subroutine sub (j)
  10     integer, volatile :: j
  11   end subroutine
  12 end
  13
  14 subroutine sub1 ()
  15   call sub2 (1)         ! { dg-error "Explicit interface required" }
  16 end subroutine
  17
  18 subroutine sub2 (j)
  19   integer, volatile :: j
  20 end subroutine
  21
  22 subroutine sub3 ()
  23   interface
  24      subroutine sub2 (j)
  25        integer, volatile :: j
  26      end subroutine
  27   end interface
  28   call sub2 (1)
  29 end subroutine