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