! { dg-do compile { target { powerpc*-*-linux* } } }
! { dg-require-effective-target ppc_float128_sw }
! { dg-require-effective-target vsx_hw }
! { dg-options "-mvsx -mabi=ieeelongdouble -mfloat128" }
! { dg-excess-errors "expect error due to switching long double type" }
! Since the error message is not associated with a particular line
! number, we cannot use the dg-error directive and cannot specify a
! regexp to describe the expected error message.  The expected warning
! message is:
!  "Warning: Using IEEE extended precision long double [-Wpsabi]"

program test_qp
   implicit none
   real(16), volatile :: fp1, fp2;
   fp1 = 2.0
   fp2 = log (fp1)
end

! { dg-final { scan-assembler-not {\mbl logl\M}    } }
! { dg-final { scan-assembler     {\mbl __logieee128\M} } }