Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pointer_check_12.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
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