diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/optional_absent_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/optional_absent_1.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/optional_absent_1.f90 b/gcc/testsuite/gfortran.dg/optional_absent_1.f90 index 690c30fa214..bc6e31ca950 100644 --- a/gcc/testsuite/gfortran.dg/optional_absent_1.f90 +++ b/gcc/testsuite/gfortran.dg/optional_absent_1.f90 @@ -1,5 +1,5 @@ ! { dg-do run } -! { dg-options "-std=f2008 -fall-intrinsics" } +! { dg-options "-std=f2008 " } ! ! Passing a null pointer or deallocated variable to an ! optional, non-pointer, non-allocatable dummy. @@ -30,19 +30,19 @@ program test contains subroutine scalar(a) integer, optional :: a - if (present(a)) call abort() + if (present(a)) STOP 1 end subroutine scalar subroutine assumed_size(a) integer, optional :: a(*) - if (present(a)) call abort() + if (present(a)) STOP 2 end subroutine assumed_size subroutine assumed_shape(a) integer, optional :: a(:) - if (present(a)) call abort() + if (present(a)) STOP 3 end subroutine assumed_shape subroutine ptr_func(is_psnt, a) integer, optional, pointer :: a logical :: is_psnt - if (is_psnt .neqv. present(a)) call abort() + if (is_psnt .neqv. present(a)) STOP 4 end subroutine ptr_func end program test |