Subversion Repositories openrisc_me

! { dg-do run }

! { dg-do run }

! { dg-options -Wsurprising }

! { dg-options -Wsurprising }

integer, pointer :: p

integer, pointer :: p

integer, target :: t, s

integer, target :: t, s

! The tests for character pointers are currently commented out,

! The tests for character pointers are currently commented out,

! because they don't yet work correctly.

! because they don't yet work correctly.

! This is PR 17192

! This is PR 17192

!!$character*5, pointer :: d

!!$character*5, pointer :: d

!!$character*5, target :: c, e

!!$character*5, target :: c, e

t = 1

t = 1

p => s

p => s

! We didn't dereference the pointer in the following line.

! We didn't dereference the pointer in the following line.

p = f() ! { dg-warning "POINTER valued function" "" }

p = f() ! { dg-warning "POINTER valued function" "" }

p = p+1

p = p+1

if (p.ne.2) call abort()

if (p.ne.2) call abort()

if (p.ne.s) call abort()

if (p.ne.s) call abort()

!!$! verify that we also dereference correctly the result of a function

!!$! verify that we also dereference correctly the result of a function

!!$! which returns its result by reference

!!$! which returns its result by reference

!!$c = "Hallo"

!!$c = "Hallo"

!!$d => e

!!$d => e

!!$d = g() !  dg-warning "POINTER valued function" ""

!!$d = g() !  dg-warning "POINTER valued function" ""

!!$if (d.ne."Hallo") call abort()

!!$if (d.ne."Hallo") call abort()

contains

contains

function f()

function f()

integer, pointer :: f

integer, pointer :: f

f => t

f => t

end function f

end function f

!!$function g()

!!$function g()

!!$character, pointer :: g

!!$character, pointer :: g

!!$g => c

!!$g => c

!!$end function g

!!$end function g

end

end