56 lines
1.2 KiB
Fortran
56 lines
1.2 KiB
Fortran
function test1(n)
|
|
integer :: n
|
|
character(n) :: test1
|
|
character(n) :: bar1
|
|
test1 = ""
|
|
return
|
|
entry bar1()
|
|
bar1 = ""
|
|
end function test1
|
|
|
|
function test2()
|
|
character(1) :: test2
|
|
character(1) :: bar2
|
|
test2 = ""
|
|
return
|
|
entry bar2()
|
|
bar2 = ""
|
|
end function test2
|
|
|
|
function test3() ! { dg-warning "Obsolescent feature" }
|
|
character(*) :: test3
|
|
character(*) :: bar3 ! { dg-warning "Obsolescent feature" }
|
|
test3 = ""
|
|
return
|
|
entry bar3()
|
|
bar3 = ""
|
|
end function test3 ! { dg-warning "Obsolescent feature" }
|
|
|
|
function test4(n) ! { dg-error "returning variables of different string lengths" }
|
|
integer :: n
|
|
character(n) :: test4
|
|
character(*) :: bar4 ! { dg-warning "Obsolescent feature" }
|
|
test4 = ""
|
|
return
|
|
entry bar4()
|
|
bar4 = ""
|
|
end function test4
|
|
|
|
function test5() ! { dg-error "returning variables of different string lengths" }
|
|
character(1) :: test5
|
|
character(2) :: bar5
|
|
test5 = ""
|
|
return
|
|
entry bar5()
|
|
bar5 = ""
|
|
end function test5
|
|
|
|
function test6() ! { dg-warning "Obsolescent feature|returning variables of different string lengths" }
|
|
character(*) :: test6
|
|
character(2) :: bar6
|
|
test6 = ""
|
|
return
|
|
entry bar6()
|
|
bar6 = ""
|
|
end function test6 ! { dg-warning "Obsolescent feature" }
|