diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/min_max_optional_4.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/min_max_optional_4.f90 | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/gcc/testsuite/gfortran.dg/min_max_optional_4.f90 b/gcc/testsuite/gfortran.dg/min_max_optional_4.f90 deleted file mode 100644 index b749db0f8e3..00000000000 --- a/gcc/testsuite/gfortran.dg/min_max_optional_4.f90 +++ /dev/null @@ -1,12 +0,0 @@ -! { dg-do run } -! { dg-shouldfail "" } -program test - call foo("foo") -contains - subroutine foo(a, b, c, d) - character(len=*), optional :: a, b, c, d - integer :: i - i = len_trim(min(a,b,c,d)) ! { dg-output "Second argument of 'MIN' intrinsic should be present" } - print *, i - end subroutine foo -end |