gcc/testsuite/gfortran.dg/argument_checking_25.f90


1
2
3
4
5
6
7
8
9
10
11
12

! { dg-do compile }
! PR fortran/100274 - ICE in gfc_conv_procedure_call, at fortran/trans-expr.c:6131

program p
  call s('y')   ! { dg-warning "Character length of actual argument" }
contains
  subroutine s(x)
    character(8), intent(out) :: x
  end
end

! { dg-error "in variable definition context"  " " { target *-*-* } 5 }