Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pointer_check_12.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do run } ! { dg-options "-fcheck=all" } ! ! { dg-shouldfail "Pointer check" } ! { dg-output "Fortran runtime error: Pointer actual argument 'p' is not associated" } ! ! PR fortran/50718 ! ! Was failing with -fcheck=pointer: Segfault at run time integer, pointer :: p => null() call sub2(%val(p)) ! Invalid: Nonassociated pointer end ! Not quite correct dummy, but if one uses VALUE, gfortran ! complains about a missing interface - which we cannot use ! if we want to use %VAL(). subroutine sub2(p) integer :: p end subroutine sub2