1*1c91d9bdSPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 -Werror -pedantic 2*1c91d9bdSPeter Klausler!PORTABILITY: nonstandard usage: generalized COMPLEX constructor 356b7db9eSPeter Klausler!PORTABILITY: Real part of complex constructor is not scalar 47ede0b2cSPeter Klauslercomplex, parameter :: z1(*) = ([1.,2.], 3.) 5*1c91d9bdSPeter Klausler!PORTABILITY: nonstandard usage: generalized COMPLEX constructor 656b7db9eSPeter Klausler!PORTABILITY: Imaginary part of complex constructor is not scalar 77ede0b2cSPeter Klauslercomplex, parameter :: z2(*) = (4., [5.,6.]) 856b7db9eSPeter Klauslerreal, parameter :: aa(*) = [7.,8.] 956b7db9eSPeter Klausler!PORTABILITY: Real part of complex literal constant is not scalar 1056b7db9eSPeter Klauslercomplex, parameter :: z3(*) = (aa, 9.) 1156b7db9eSPeter Klausler!PORTABILITY: Imaginary part of complex literal constant is not scalar 1256b7db9eSPeter Klauslercomplex, parameter :: z4(*) = (10., aa) 1356b7db9eSPeter Klausler!We need a nonzero exit status to make test_errors.py look at messages :-( 1456b7db9eSPeter Klausler!WARNING: division by zero 1556b7db9eSPeter Klauslerreal, parameter :: xxx = 1./0. 167ede0b2cSPeter Klauslerend 17