! { dg-do compile }
! { dg-options "-ffree-line-length-256 -O3 -march=z13 -mzvector -mzarch" }

#include "autovec-fortran.h"

AUTOVEC_FORTRAN (max)

! Fortran's max does not specify whether or not an exception should be raised in
! face of qNaNs, and neither does gcc's smax.  Vectorize max using quiet
! comparison, because that's the only one we have on z13.
! { dg-final { scan-assembler {\n\tvfchdb\t} } }