diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/min_max_optional_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/min_max_optional_2.f90 | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/gcc/testsuite/gfortran.dg/min_max_optional_2.f90 b/gcc/testsuite/gfortran.dg/min_max_optional_2.f90 deleted file mode 100644 index 51e0feee641..00000000000 --- a/gcc/testsuite/gfortran.dg/min_max_optional_2.f90 +++ /dev/null @@ -1,13 +0,0 @@ -! { dg-do run } -! { dg-shouldfail "" } - program test - if (m1(3,4) /= 4) call abort - if (m1(3) /= 3) call abort - print *, m1() - contains - integer function m1(a1,a2) - integer, optional :: a1,a2 - m1 = max(a2, a1, 1, 2) - end function m1 - end -! { dg-output "First argument of 'max' intrinsic should be present" } |