1! RUN: %python %S/test_errors.py %s %flang_fc1 -Werror -pedantic 2!PORTABILITY: nonstandard usage: generalized COMPLEX constructor 3!PORTABILITY: Real part of complex constructor is not scalar 4complex, parameter :: z1(*) = ([1.,2.], 3.) 5!PORTABILITY: nonstandard usage: generalized COMPLEX constructor 6!PORTABILITY: Imaginary part of complex constructor is not scalar 7complex, parameter :: z2(*) = (4., [5.,6.]) 8real, parameter :: aa(*) = [7.,8.] 9!PORTABILITY: Real part of complex literal constant is not scalar 10complex, parameter :: z3(*) = (aa, 9.) 11!PORTABILITY: Imaginary part of complex literal constant is not scalar 12complex, parameter :: z4(*) = (10., aa) 13!We need a nonzero exit status to make test_errors.py look at messages :-( 14!WARNING: division by zero 15real, parameter :: xxx = 1./0. 16end 17