blob: 3a1489aaab8af7db5ac8c2582b994b251bb7d7ed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
! { dg-do compile }
! { dg-options "-std=gnu" }
! PR100154 - ICE in gfc_conv_procedure_call, at fortran/trans-expr.c:6131
program p
implicit none
integer :: n
character, target :: c
character(len=0) :: c0
character(len=:), allocatable :: cc
n = fget(cc)
n = fget('a') ! { dg-error "must be a variable" }
n = fget(c0) ! { dg-error "must have length at least 1" }
call fget('x') ! { dg-error "must be a variable" }
n = fgetc(5,'a') ! { dg-error "must be a variable" }
call fgetc(5,c0) ! { dg-error "must have length at least 1" }
call fgetc(5,c,1) ! { dg-error "must be a variable" }
call fputc(5,'x',1) ! { dg-error "must be a variable" }
n = fget (ptr_returning_func())
print *, c
contains
function ptr_returning_func () result (res)
character, pointer :: res
res => c
end
end
|