gcc/testsuite/gfortran.dg/pr95544.f90

   1 ! { dg-do compile }
   2 ! PR fortran/95544 - ICE in gfc_can_put_var_on_stack, at fortran/trans-decl.c:494
   3
   4 program test
   5    character(:), allocatable :: z
   6    character(:), pointer     :: p
   7    character(1), pointer     :: c
   8    print *, adjustl (null(z)) ! { dg-error "is not permitted as actual argument" }
   9    print *, adjustr (null(z)) ! { dg-error "is not permitted as actual argument" }
  10    print *, len     (null(p)) ! { dg-error "is not permitted as actual argument" }
  11    print *, len     (null(z)) ! { dg-error "is not permitted as actual argument" }
  12    print *, len_trim(null(c)) ! { dg-error "is not permitted as actual argument" }
  13    print *, len_trim(null(z)) ! { dg-error "is not permitted as actual argument" }
  14    print *, trim    (null(z)) ! { dg-error "is not permitted as actual argument" }
  15 end