minmax_char_2.f90

来自「用于进行gcc测试」· F90 代码 · 共 5 行

! { dg-do compile }
! { dg-options "-std=f95" }
  print *, min("foo", "bar") ! { dg-error "Fortran 2003.* CHARACTER argument" }
  end