Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/null_6.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 compile } ! { dg-options "-std=f2008" } ! ! PR fortran/34547 ! PR fortran/50375 subroutine test_PR50375_3 () interface gen3 subroutine s31 (pi) integer, pointer :: pi end subroutine subroutine s32 (pr) real, allocatable :: pr(:) end subroutine end interface call gen3 (null ()) ! OK end subroutine test_PR50375_3 subroutine test_PR50375_2 () interface gen2 subroutine s21 (pi) integer, pointer :: pi end subroutine subroutine s22 (pr) real, optional :: pr end subroutine end interface call gen2 (null ()) ! { dg-error "MOLD= required in NULL|There is no specific subroutine" } end subroutine test_PR50375_2 subroutine test_PR34547_3 () integer, allocatable :: i(:) print *, NULL(i) ! { dg-error "Invalid context for NULL" } end subroutine test_PR34547_3