https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82372
Bug ID: 82372
Summary: Rejects valid parenthesis
Product: gcc
Version: 8.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: jvdelisle at gcc dot gnu.org
Target Milestone: ---
program vincenty
implicit none
integer, parameter :: wp = selected_real_kind (18) ! Working Precision
real(wp), parameter :: f = 1.0_wp/298.257223563_wp
real(wp), parameter :: pi = 3.141592653589793238462643383279502884197_wp
real(wp) :: theta1, theta2
real(wp) :: U1, U2
theta1 = 2.0_wp * pi * 46.222539_wp
theta2 = 0.7_wp
U1 = sin((1.0 − f) * tan(theta1))
end program
$ gfc bug1.f90
bug1.f90:13:13:
U1 = sin((1.0 − f) * tan(theta1))
1
Error: Expected a right parenthesis in expression at (1)
I am not seeing whats is wrong. Please someone confirm.
